version 1.5, 1994/06/01 10:05:14
|
version 1.6, 1994/06/17 12:34:58
|
Line 134 include machine.fs
|
Line 134 include machine.fs
|
: cell+ cell + ; |
: cell+ cell + ; |
: cells cell<< lshift ; |
: cells cell<< lshift ; |
: chars ; |
: chars ; |
|
: floats float * ; |
|
|
>CROSS |
>CROSS |
: cell/ cell<< rshift ; |
: cell/ cell<< rshift ; |
>TARGET |
>TARGET |
Line 488 Cond: [Char] ( "<char>" -- ) restrict
|
Line 489 Cond: [Char] ( "<char>" -- ) restrict
|
|
|
Cond: EXIT ( -- ) restrict? compile ;S ;Cond |
Cond: EXIT ( -- ) restrict? compile ;S ;Cond |
|
|
|
Cond: ?EXIT ( -- ) 1 abort" CROSS: using ?exit" ;Cond |
|
|
Cond: ; ( -- ) restrict? |
Cond: ; ( -- ) restrict? |
depth ?dup IF 1- <> ABORT" CROSS: Stack changed" |
depth ?dup IF 1- <> ABORT" CROSS: Stack changed" |
ELSE true ABORT" CROSS: Stack empty" THEN |
ELSE true ABORT" CROSS: Stack empty" THEN |