Return to cross.fs CVS log | Up to [gforth] / gforth |
version 1.158, 2006/03/05 14:10:51 | version 1.159, 2006/03/25 18:37:15 |
---|---|
Line 3730 previous | Line 3730 previous |
: 2/ 2/ ; | : 2/ 2/ ; |
: hex. base @ $10 base ! swap . base ! ; | : hex. base @ $10 base ! swap . base ! ; |
: invert invert ; | : invert invert ; |
: linkstring ( addr u n addr -- ) | |
X here over X @ X , swap X ! X , ht-string, X align ; | |
\ : . . ; | \ : . . ; |
: all-words ['] forced? IS skip? ; | : all-words ['] forced? IS skip? ; |