Return to other.fs CVS log | Up to [gforth] / gforth / test |
version 1.7, 1998/04/14 16:43:22 | version 1.8, 1998/05/02 21:29:15 |
---|---|
Line 67 locals-test2 | Line 67 locals-test2 |
\ multiple reveals (recursive) | \ multiple reveals (recursive) |
0 | 0 |
: xxx recursive ; | : xxx recursive ; .s |
throw \ if the TOS is not 0, throw an error | throw \ if the TOS is not 0, throw an error |
\ look for primitives | \ look for primitives |