Return to comp.fs CVS log | Up to [gforth] / gforth / kernel |
version 1.8, 1999/02/03 00:10:24 | version 1.9, 1999/02/03 23:32:24 |
---|---|
Line 52 | Line 52 |
bl c, | bl c, |
LOOP ; | LOOP ; |
: maxalign ( -- ) \ float | : maxalign ( -- ) \ gforth |
here dup maxaligned swap | here dup maxaligned swap |
?DO | ?DO |
bl c, | bl c, |