![[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.93, 2007/12/31 18:40:26 | version 1.94, 2008/10/13 20:44:13 |
|---|---|
| Line 120 defer header ( -- ) \ gforth | Line 120 defer header ( -- ) \ gforth |
| name-too-long? | name-too-long? |
| dup max-name-length @ max max-name-length ! | dup max-name-length @ max max-name-length ! |
| align here last ! | align here last ! |
| [ has? flash [IF] ] | [ has? ec [IF] ] |
| -1 A, | -1 A, |
| [ [ELSE] ] | [ [ELSE] ] |
| current @ 1 or A, \ link field; before revealing, it contains the | current @ 1 or A, \ link field; before revealing, it contains the |