Verified Commit 57fa295b authored by Bernd Paysan's avatar Bernd Paysan
Browse files

Create colon words from example

parent 1cb7b4e0

kernel/comp.fs

+1 −1
Original line number Diff line number Diff line
@@ -750,7 +750,7 @@ defer 0-adjust-locals-size ( -- ) 


: : ( "name" -- colon-sys ) \ core	colon

    free-old-local-names

    Header (:noname) ;

    ['] on create-from colon-sys ] :-hook ;



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

    noname, here (:noname) ;