gforth/prims2x.fs - diff

Return to prims2x.fs CVS log

Up to [gforth] / gforth

version 1.26, 1997/02/08 22:58:16	version 1.28, 1997/09/13 12:04:59
Line 45 warnings off	Line 45 warnings off
include extend.fs	include extend.fs

\ require interpretation.fs	\ require interpretation.fs
require debugging.fs	\ require debugs.fs
[IFUNDEF] vocabulary include search-order.fs [THEN]	[IFUNDEF] vocabulary include search.fs [THEN]
[IFUNDEF] environment? include environ.fs [THEN]	[IFUNDEF] environment? include environ.fs [THEN]
include gray.fs	include gray.fs

Line 615 set-current	Line 615 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