version 1.157, 2006/03/04 22:45:07
|
version 1.158, 2006/03/05 14:10:51
|
Line 1184 true DefaultValue gforthcross
|
Line 1184 true DefaultValue gforthcross
|
true DefaultValue interpreter |
true DefaultValue interpreter |
true DefaultValue ITC |
true DefaultValue ITC |
false DefaultValue rom |
false DefaultValue rom |
|
false DefaultValue flash |
true DefaultValue standardthreading |
true DefaultValue standardthreading |
|
|
\ ANSForth environment stuff |
\ ANSForth environment stuff |
Line 2639 T has? peephole H [IF]
|
Line 2640 T has? peephole H [IF]
|
|
|
>TARGET |
>TARGET |
Cond: DOES> |
Cond: DOES> |
T here 5 cells H + alit, compile (does>2) compile ;s |
T here H [ T has? peephole H [IF] ] 5 [ [ELSE] ] 4 [ [THEN] ] T cells |
|
H + alit, compile (does>2) compile ;s |
doeshandler, resolve-does>-part |
doeshandler, resolve-does>-part |
;Cond |
;Cond |
|
|