version 1.9, 1999/03/23 20:24:27
|
version 1.10, 2000/05/27 09:41:30
|
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 >head THEN ; |
: scanIF f83find dup 0= IF drop ['] dummy >head-noprim 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, |