Return to cross.fs CVS log | Up to [gforth] / gforth |
version 1.90, 2001/01/28 22:43:39 | version 1.91, 2001/01/29 11:39:43 |
---|---|
Line 2211 Builder Field | Line 2211 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+ ; | Build: ( m v -- m' v ) dup T , cell+ H ; |
DO: abort" Not in cross mode" ;DO | DO: abort" Not in cross mode" ;DO |
Builder input-method | Builder input-method |