version 1.10, 1998/12/19 13:43:19
|
version 1.14, 2000/02/04 14:52:30
|
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 |
|
|
|
\ allotting negative space |
|
|
|
1 allot |
|
-1 allot |
|
|
|
\ unaligned input for head? |
|
|
|
here 1+ head? throw |
|
|
|
\ [compile] exit = exit |
|
|
|
: foo [compile] exit abort" '[compile] exit' broken" ; |
|
foo |
|
|
\ comments across several lines |
\ comments across several lines |
|
|
( fjklfjlas;d |
( fjklfjlas;d |