version 1.4, 1994/12/15 12:35:15
|
version 1.5, 1995/01/30 18:47:56
|
Line 21 UNLOCK Tlast @ NIL Tlast ! LOCK
|
Line 21 UNLOCK Tlast @ NIL Tlast ! LOCK
|
immediate |
immediate |
' [IF] Alias [IFDEF] immediate |
' [IF] Alias [IFDEF] immediate |
' [IF] Alias [IFUNDEF] immediate |
' [IF] Alias [IFUNDEF] immediate |
|
' [THEN] Alias [ENDIF] immediate |
' [IF] Alias [BEGIN] immediate |
' [IF] Alias [BEGIN] immediate |
' [IF] Alias [WHILE] immediate |
' [IF] Alias [WHILE] immediate |
' [THEN] Alias [UNTIL] immediate |
' [THEN] Alias [UNTIL] immediate |
Line 48 UNLOCK Tlast @ swap Tlast ! LOCK
|
Line 49 UNLOCK Tlast @ swap Tlast ! LOCK
|
: [IFUNDEF] postpone defined 0= postpone [IF] ; immediate |
: [IFUNDEF] postpone defined 0= postpone [IF] ; immediate |
: [ELSE] 0 postpone [IF] ; immediate |
: [ELSE] 0 postpone [IF] ; immediate |
: [THEN] ; immediate |
: [THEN] ; immediate |
|
: [ENDIF] ; immediate |
|
|
\ Structs for interpreter 28nov92py |
\ Structs for interpreter 28nov92py |
|
|