Return to wf.fs CVS log | Up to [gforth] / gforth |
version 1.56, 2008/08/24 12:28:11 | version 1.57, 2008/10/06 19:31:36 |
---|---|
Line 380 Create do-words $100 0 [DO] ' .text , [ | Line 380 Create do-words $100 0 [DO] ' .text , [ |
: >tag '\ parse type '\ parse tag ; | : >tag '\ parse type '\ parse tag ; |
char>tag * b | char>tag * b |
char>tag / i | |
char>tag _ em | char>tag _ em |
char>tag # code | char>tag # code |
:noname '~ parse .type '~ parse .type ; '~ cells do-words + ! | :noname '~ parse .type '~ parse .type ; '~ cells do-words + ! |