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, |
|
|