version 1.87, 2000/09/23 15:46:52
|
version 1.88, 2000/10/29 20:27:02
|
Line 802 false DefaultValue dcomps
|
Line 802 false DefaultValue dcomps
|
false DefaultValue hash |
false DefaultValue hash |
false DefaultValue xconds |
false DefaultValue xconds |
false DefaultValue header |
false DefaultValue header |
|
false DefaultValue new-input |
[THEN] |
[THEN] |
|
|
true DefaultValue interpreter |
true DefaultValue interpreter |
Line 2202 Builder Field
|
Line 2203 Builder Field
|
: cell% ( n -- size align ) |
: cell% ( n -- size align ) |
T 1 cells H dup ; |
T 1 cells H dup ; |
|
|
|
Build: ( m v -- m' v ) dup T , H cell+ ; |
|
DO: abort" Not in cross mode" ;DO |
|
Builder input-method |
|
|
|
Build: ( m v size -- m v' ) over T , H + ; |
|
DO: abort" Not in cross mode" ;DO |
|
Builder input-var |
|
|
\ structural conditionals 17dec92py |
\ structural conditionals 17dec92py |
|
|
>CROSS |
>CROSS |