gforth/prims2x.fs - diff

Return to prims2x.fs CVS log

Up to [gforth] / gforth

version 1.27, 1997/05/21 20:39:37	version 1.29, 1997/12/14 01:15:20
Line 42	Line 42

warnings off	warnings off

	include search.fs
include extend.fs	include extend.fs

\ require interpretation.fs	\ require interpretation.fs
Line 615 set-current	Line 616 set-current
: 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