version 1.77, 2006/02/19 17:27:13
|
version 1.78, 2006/02/25 18:28:12
|
Line 117 defer header ( -- ) \ gforth
|
Line 117 defer header ( -- ) \ gforth
|
align here last ! |
align here last ! |
current @ 1 or A, \ link field; before revealing, it contains the |
current @ 1 or A, \ link field; before revealing, it contains the |
\ tagged reveal-into wordlist |
\ tagged reveal-into wordlist |
longstring, cfalign |
[ has? f83headerstring [IF] ] |
|
string, |
|
[ [ELSE] ] |
|
longstring, cfalign |
|
[ [THEN] ] |
alias-mask lastflags cset ; |
alias-mask lastflags cset ; |
|
|
: input-stream-header ( "name" -- ) |
: input-stream-header ( "name" -- ) |