![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to int.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to int.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.31, 1999/05/06 21:33:36 | version 1.32, 1999/05/09 21:21:56 |
|---|---|
| Line 423 const Create ??? 0 , 3 c, char ? c, cha | Line 423 const Create ??? 0 , 3 c, char ? c, cha |
| \ ticks | \ ticks |
| : (') ( "name" -- nt ) \ gforth | : (') ( "name" -- nt ) \ gforth |
| name dup 0= -&16 and throw \ test for length 0 | name name-too-short? |
| find-name dup 0= | find-name dup 0= |
| IF | IF |
| drop -&13 bounce | drop -&13 bounce |