Return to cross.fs CVS log | Up to [gforth] / gforth |
version 1.22, 1995/02/06 18:14:30 | version 1.23, 1995/02/08 13:38:50 |
---|---|
Line 23 | Line 23 |
\ include other.fs \ ansforth extentions for cross | \ include other.fs \ ansforth extentions for cross |
: string, ( c-addr u -- ) | |
\ puts down string as cstring | |
dup c, here swap chars dup allot move ; | |
' falign Alias cfalign | |
: comment? ( c-addr u -- c-addr u ) | : comment? ( c-addr u -- c-addr u ) |
2dup s" (" compare 0= | 2dup s" (" compare 0= |
IF postpone ( | IF postpone ( |