![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to comp.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to comp.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.78, 2006/02/25 18:28:12 | version 1.79, 2006/02/25 22:38:23 |
|---|---|
| Line 120 defer header ( -- ) \ gforth | Line 120 defer header ( -- ) \ gforth |
| [ has? f83headerstring [IF] ] | [ has? f83headerstring [IF] ] |
| string, | string, |
| [ [ELSE] ] | [ [ELSE] ] |
| longstring, cfalign | longstring, |
| [ [THEN] ] | [ [THEN] ] |
| alias-mask lastflags cset ; | cfalign alias-mask lastflags cset ; |
| : input-stream-header ( "name" -- ) | : input-stream-header ( "name" -- ) |
| name name-too-short? header, ; | name name-too-short? header, ; |