Return to see.fs CVS log | Up to [gforth] / gforth |
version 1.10, 1996/01/07 17:22:14 | version 1.11, 1996/05/04 18:39:25 |
---|---|
Line 495 CREATE C-Table | Line 495 CREATE C-Table |
WHILE 2 pick <> | WHILE 2 pick <> |
WHILE 2 cells + | WHILE 2 cells + |
REPEAT | REPEAT |
nip cell+ @ EXECUTE | nip cell+ perform |
true | true |
ELSE | ELSE |
2drop drop false | 2drop drop false |