version 1.36, 1998/12/11 22:54:27
|
version 1.38, 1998/12/25 22:50:49
|
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 +! ; |
|
|
: 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 |