softcore.fr (40987) | softcore.fr (43078) |
---|---|
1\ ** ficl/softwords/softcore.fr 2\ ** FICL soft extensions 3\ ** John Sadler (john_sadler@alum.mit.edu) 4\ ** September, 1998 5 6\ ** Ficl USER variables 7\ ** See words.c for primitive def'n of USER 8\ #if FICL_WANT_USER --- 19 unchanged lines hidden (view full) --- 28: space ( -- ) bl emit ; 29 30: spaces ( n -- ) 0 ?do space loop ; 31 32: abort" 33 postpone if 34 postpone ." 35 postpone cr | 1\ ** ficl/softwords/softcore.fr 2\ ** FICL soft extensions 3\ ** John Sadler (john_sadler@alum.mit.edu) 4\ ** September, 1998 5 6\ ** Ficl USER variables 7\ ** See words.c for primitive def'n of USER 8\ #if FICL_WANT_USER --- 19 unchanged lines hidden (view full) --- 28: space ( -- ) bl emit ; 29 30: spaces ( n -- ) 0 ?do space loop ; 31 32: abort" 33 postpone if 34 postpone ." 35 postpone cr |
36 postpone abort | 36 -2 37 postpone literal 38 postpone throw |
37 postpone endif 38; immediate 39 40 41\ ** CORE EXT 420 constant false 43-1 constant true 44: <> = invert ; --- 81 unchanged lines hidden --- | 39 postpone endif 40; immediate 41 42 43\ ** CORE EXT 440 constant false 45-1 constant true 46: <> = invert ; --- 81 unchanged lines hidden --- |