version 1.96, 2001/05/13 10:54:10
|
version 1.97, 2001/05/13 11:02:59
|
Line 53
|
Line 53
|
|
|
warnings off |
warnings off |
|
|
|
[IFUNDEF] try |
|
include startup.fs |
|
[THEN] |
|
|
: struct% struct ; \ struct is redefined in gray |
: struct% struct ; \ struct is redefined in gray |
|
|
include ./gray.fs |
include ./gray.fs |
Line 1214 warnings @ [IF]
|
Line 1218 warnings @ [IF]
|
[THEN] |
[THEN] |
|
|
|
|
\ run with out of box gforth 0.5.0 |
\ run with gforth-0.5.0 (slurp-file is missing) |
[IFUNDEF] slurp-file |
[IFUNDEF] slurp-file |
: slurp-file ( c-addr1 u1 -- c-addr2 u2 ) |
: slurp-file ( c-addr1 u1 -- c-addr2 u2 ) |
\ c-addr1 u1 is the filename, c-addr2 u2 is the file's contents |
\ c-addr1 u1 is the filename, c-addr2 u2 is the file's contents |