gforth/kernel/toolsext.fs - diff

Return to toolsext.fs CVS log

Up to [gforth] / gforth / kernel

version 1.6, 1998/12/08 22:03:14	version 1.7, 1999/01/02 14:03:37
Line 22 Variable countif	Line 22 Variable countif

: dummy ; immediate	: dummy ; immediate
: >exec >r ; restrict ( :-)	: >exec >r ; restrict ( :-)
: scanIF f83find dup 0= IF drop ['] dummy >name THEN ;	: scanIF f83find dup 0= IF drop ['] dummy >head THEN ;

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