version 1.9, 1998/12/08 22:03:16
|
version 1.11, 1999/02/22 21:39:45
|
Line 67 locals-test2
|
Line 67 locals-test2
|
\ multiple reveals (recursive) |
\ multiple reveals (recursive) |
|
|
0 |
0 |
: xxx recursive ; .s |
: xxx recursive ; |
throw \ if the TOS is not 0, throw an error |
throw \ if the TOS is not 0, throw an error |
|
|
\ look for primitives |
\ look for primitives |
Line 129 end-struct my-struct%
|
Line 129 end-struct my-struct%
|
|
|
0 field2 float% %alignment <> throw |
0 field2 float% %alignment <> throw |
|
|
|
\ filenames with "//" |
|
|
|
s" //jkfklfggfld/fjsjfk/hjfdjs" open-fpath-file 2drop |
|
|
\ comments across several lines |
\ comments across several lines |
|
|
( fjklfjlas;d |
( fjklfjlas;d |