gforth/test/other.fs - diff

Return to other.fs CVS log

Up to [gforth] / gforth / test

version 1.19, 2002/09/15 20:30:02	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

' + xt>threaded look 0= throw ( nt )	' + xt>threaded threaded>name 0= throw ( nt )
s" +" find-name <> throw	s" +" find-name <> throw

\ represent	\ represent