version 1.28, 1995/09/06 21:00:11
|
version 1.29, 1995/10/07 17:38:11
|
Line 120 H
|
Line 120 H
|
-4 Constant :dovar |
-4 Constant :dovar |
-5 Constant :douser |
-5 Constant :douser |
-6 Constant :dodefer |
-6 Constant :dodefer |
-7 Constant :dostruc |
-7 Constant :dofield |
-8 Constant :dodoes |
-8 Constant :dodoes |
-9 Constant :doesjump |
-9 Constant :doesjump |
|
|
Line 483 ghost (loop) ghost (+loop)
|
Line 483 ghost (loop) ghost (+loop)
|
ghost (next) drop |
ghost (next) drop |
ghost unloop ghost ;S 2drop |
ghost unloop ghost ;S 2drop |
ghost lit ghost (compile) ghost ! 2drop drop |
ghost lit ghost (compile) ghost ! 2drop drop |
ghost (;code) ghost noop 2drop |
ghost (does>) ghost noop 2drop |
ghost (.") ghost (S") ghost (ABORT") 2drop drop |
ghost (.") ghost (S") ghost (ABORT") 2drop drop |
ghost ' |
ghost ' |
|
|
Line 571 Cond: [ restrict? state off ;Cond
|
Line 571 Cond: [ restrict? state off ;Cond
|
|
|
>TARGET |
>TARGET |
Cond: DOES> restrict? |
Cond: DOES> restrict? |
compile (;code) dodoes, tdoes @ ?dup IF @ T here H resolve THEN |
compile (does>) dodoes, tdoes @ ?dup IF @ T here H resolve THEN |
;Cond |
;Cond |
: DOES> dodoes, T here H !does depth T ] H ; |
: DOES> dodoes, T here H !does depth T ] H ; |
|
|
Line 695 Build: >r rot r@ nalign dup T , H ( a
|
Line 695 Build: >r rot r@ nalign dup T , H ( a
|
+ swap r> nalign ; |
+ swap r> nalign ; |
DO: T @ H + ;DO |
DO: T @ H + ;DO |
Builder Field |
Builder Field |
by Field :dostruc resolve |
by Field :dofield resolve |
|
|
: struct T 0 1 chars H ; |
: struct T 0 1 chars H ; |
: end-struct T 2Constant H ; |
: end-struct T 2Constant H ; |