| : 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, |
| Create [struct]-voc NIL A, G [struct]-search T A, |
Create [struct]-voc NIL A, [struct]-search A, |
| NIL A, NIL A, |
NIL A, NIL A, |
| |
|
| : ?if countif @ 0< |
: ?if countif @ 0< |
| ' \ Alias \ immediate |
' \ Alias \ immediate |
| |
|
| UNLOCK Tlast @ swap Tlast ! LOCK |
UNLOCK Tlast @ swap Tlast ! LOCK |
| 1 cells - G [struct]-voc T ! |
1 cells - [struct]-voc ! |
| |
|
| \ Interpretative Structuren 30apr92py |
\ Interpretative Structuren 30apr92py |
| |
|
| : [LOOP] ( -- ) 1 rdrop rdrop ; immediate |
: [LOOP] ( -- ) 1 rdrop rdrop ; immediate |
| : [FOR] ( n -- ) 0 swap postpone [DO] ; immediate |
: [FOR] ( n -- ) 0 swap postpone [DO] ; immediate |
| : [NEXT] ( n -- ) -1 rdrop rdrop ; immediate |
: [NEXT] ( n -- ) -1 rdrop rdrop ; immediate |
| : [I] ( -- index ) (I) @ postpone Literal ; immediate restrict |
: [I] ( -- index ) (I) @ postpone Literal ; immediate |
| : [BEGIN] >in @ >r BEGIN r@ >in ! interpret UNTIL rdrop ; |
: [BEGIN] >in @ >r BEGIN r@ >in ! interpret UNTIL rdrop ; |
| immediate |
immediate |
| ' [+LOOP] Alias [UNTIL] immediate |
' [+LOOP] Alias [UNTIL] immediate |
