![[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.36, 1998/12/11 22:54:27 | version 1.37, 1998/12/23 21:41:57 |
|---|---|
| Line 661 set-current | Line 661 set-current |
| : output-label ( -- ) 1 flush-comment ! | : output-label ( -- ) 1 flush-comment ! |
| ?flush-comment | ?flush-comment |
| ." [" -2 primitive-number @ - 0 .r ." ] " | |
| ." (Label)&&I_" c-name 2@ type ." ," cr | ." (Label)&&I_" c-name 2@ type ." ," cr |
| -1 primitive-number +! ; | -1 primitive-number +! ; |