gforth/kernel/comp.fs - diff

Return to comp.fs CVS log

Up to [gforth] / gforth / kernel

version 1.113, 2011/12/31 15:29:26	version 1.114, 2012/02/09 17:27:37
Line 567 interpret/compile: TO ( w "name" -- ) \	Line 567 interpret/compile: TO ( w "name" -- ) \
\ \ : ; 24feb93py	\ \ : ; 24feb93py

defer :-hook ( sys1 -- sys2 )	defer :-hook ( sys1 -- sys2 )
	defer free-old-local-names ( -- )
defer ;-hook ( sys2 -- sys1 )	defer ;-hook ( sys2 -- sys1 )

0 Constant defstart	0 Constant defstart
Line 578 defer ;-hook ( sys2 -- sys1 )	Line 578 defer ;-hook ( sys2 -- sys1 )
defstart ] :-hook ;	defstart ] :-hook ;

: : ( "name" -- colon-sys ) \ core colon	: : ( "name" -- colon-sys ) \ core colon
	free-old-local-names
Header (:noname) ;	Header (:noname) ;

: :noname ( -- xt colon-sys ) \ core-ext colon-no-name	: :noname ( -- xt colon-sys ) \ core-ext colon-no-name