Return to other.fs CVS log | Up to [gforth] / gforth / test |
version 1.18, 2000/09/23 15:47:12 | version 1.20, 2003/01/04 08:26:58 |
---|---|
Line 72 throw \ if the TOS is not 0, throw an er | Line 72 throw \ if the TOS is not 0, throw an er |
\ look for primitives | \ look for primitives |
' + look 0= throw ( nt ) | ' + xt>threaded threaded>name 0= throw ( nt ) |
s" +" find-name <> throw | s" +" find-name <> throw |
\ represent | \ represent |