gforth/kernel/toolsext.fs - diff

Return to toolsext.fs CVS log

Up to [gforth] / gforth / kernel

version 1.1, 1997/05/21 20:40:18	version 1.2, 1997/07/06 15:56:17
Line 25 Variable countif	Line 25 Variable countif
: >exec >r ; restrict ( :-)	: >exec >r ; restrict ( :-)
: scanIF f83find dup 0= IF drop ['] dummy >name THEN ;	: scanIF f83find dup 0= IF drop ['] dummy >name THEN ;

Create [struct]-search ' scanIF A, ' (reveal) A, ' drop A,	Create [struct]-search ' scanIF A, ' (reveal) A, ' drop A, ' drop A,
Create [struct]-voc NIL A, [struct]-search A,	Create [struct]-voc NIL A, [struct]-search A,
NIL A, NIL A,	NIL A, NIL A,