version 1.65, 1999/01/10 22:00:22
|
version 1.66, 1999/01/21 20:09:13
|
Line 1252 Cond: ['] T ' H alit, ;Cond
|
Line 1252 Cond: ['] T ' H alit, ;Cond
|
|
|
: (lit,) ( n -- ) compile lit T , H ; ' (lit,) IS lit, |
: (lit,) ( n -- ) compile lit T , H ; ' (lit,) IS lit, |
|
|
: (alit,) ( n -- ) lit, T here cell - H relon ; ' (alit,) IS alit, |
: (alit,) ( n -- ) compile lit T a, H ; ' (alit,) IS alit, |
|
|
: (fini,) compile ;s ; ' (fini,) IS fini, |
: (fini,) compile ;s ; ' (fini,) IS fini, |
|
|
Line 1804 Cond: S" restrict? compile (S")
|
Line 1804 Cond: S" restrict? compile (S")
|
Cond: ABORT" restrict? compile (ABORT") T ," H ;Cond |
Cond: ABORT" restrict? compile (ABORT") T ," H ;Cond |
|
|
Cond: IS T ' >body H compile ALiteral compile ! ;Cond |
Cond: IS T ' >body H compile ALiteral compile ! ;Cond |
: IS T ' >body ! H ; |
: IS T >address ' >body ! H ; |
Cond: TO T ' >body H compile ALiteral compile ! ;Cond |
Cond: TO T ' >body H compile ALiteral compile ! ;Cond |
: TO T ' >body ! H ; |
: TO T ' >body ! H ; |
|
|