gforth/prims2x.fs - diff

Return to prims2x.fs CVS log

Up to [gforth] / gforth

version 1.31, 1998/05/31 19:29:23	version 1.33, 1998/10/25 23:15:46
Line 42	Line 42

warnings off	warnings off

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

\ require interpretation.fs	\ require interpretation.fs
\ require debugs.fs	\ require debugs.fs
Line 466 s" DFloat *" single-type starts-with df_	Line 466 s" DFloat *" single-type starts-with df_
s" SFloat *" single-type starts-with sf_	s" SFloat *" single-type starts-with sf_
s" Xt" single-type starts-with xt	s" Xt" single-type starts-with xt
s" WID" single-type starts-with wid	s" WID" single-type starts-with wid
s" F83Name *" single-type starts-with f83name	s" struct F83Name *" single-type starts-with f83name

set-current	set-current

Line 645 set-current	Line 645 set-current
cr ;	cr ;

: output-label ( -- )	: output-label ( -- )
." &&I_" c-name 2@ type ." ," cr ;	." (Label)&&I_" c-name 2@ type ." ," cr ;

: output-alias ( -- ) flush-comment on	: output-alias ( -- ) flush-comment on
?flush-comment	?flush-comment