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 |