version 1.57, 2011/01/19 19:26:03
|
version 1.58, 2011/05/20 13:54:37
|
Line 89 Defer flush-blocks ( -- ) \ gforth
|
Line 89 Defer flush-blocks ( -- ) \ gforth
|
|
|
: use ( "file" -- ) \ gforth |
: use ( "file" -- ) \ gforth |
\g Use @i{file} as the blocks file. |
\g Use @i{file} as the blocks file. |
name open-blocks ; |
name name-too-short? open-blocks ; |
|
|
\ the file is opened as binary file, since it either will contain text |
\ the file is opened as binary file, since it either will contain text |
\ without newlines or binary data |
\ without newlines or binary data |