![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to prims2x.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to prims2x.fs CVS log | Up to [gforth] / gforth |
| version 1.37, 1998/12/23 21:41:57 | version 1.38, 1998/12/25 22:50:49 |
|---|---|
| Line 666 set-current | Line 666 set-current |
| : output-alias ( -- ) flush-comment on | : output-alias ( -- ) flush-comment on |
| ?flush-comment | ?flush-comment |
| primitive-number @ . ." alias " forth-name 2@ type cr | ( primitive-number @ . ." alias " ) ." Primitive " forth-name 2@ type cr |
| -1 primitive-number +! ; | -1 primitive-number +! ; |
| : output-forth ( -- ) flush-comment on | : output-forth ( -- ) flush-comment on |