![[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.27, 1999/03/23 20:24:25 | version 1.28, 1999/03/28 16:10:03 |
|---|---|
| Line 387 const Create ??? 0 , 3 c, char ? c, cha | Line 387 const Create ??? 0 , 3 c, char ? c, cha |
| \ ticks | \ ticks |
| : (') ( "name" -- nt ) \ gforth | : (') ( "name" -- nt ) \ gforth |
| name find-name dup 0= | name dup 0= -&16 and throw \ test for length 0 |
| find-name dup 0= | |
| IF | IF |
| drop -&13 bounce | drop -&13 bounce |
| THEN ; | THEN ; |