gforth/test/other.fs - diff

Return to other.fs CVS log

Up to [gforth] / gforth / test

version 1.20, 2003/01/04 08:26:58	version 1.21, 2003/01/06 11:18:59
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 threaded>name 0= throw ( nt )	' + xt>threaded threaded>name dup 0= throw ( nt )
s" +" find-name <> throw	s" +" find-name <> throw

\ represent	\ represent