| : output-forth ( -- ) flush-comment on |
: output-forth ( -- ) flush-comment on |
| ?flush-comment |
?flush-comment |
| forth-code @ 0= |
forth-code @ 0= |
| IF output-alias |
IF \ output-alias |
| |
\ this is bad for ec: an alias is compiled if tho word does not exist! |
| |
\ JAW |
| ELSE ." : " forth-name 2@ type ." ( " |
ELSE ." : " forth-name 2@ type ." ( " |
| effect-in effect-in-end @ .stack-list ." -- " |
effect-in effect-in-end @ .stack-list ." -- " |
| effect-out effect-out-end @ .stack-list ." )" cr |
effect-out effect-out-end @ .stack-list ." )" cr |
