Take init out of here - it's a layering violation.

This commit is contained in:
Jordan K. Hubbard 1998-11-07 05:01:25 +00:00
parent 7c8faeb31f
commit d6a0c2b58d

View File

@ -121,8 +121,5 @@ decimal 32 constant bl
wordlist constant hidden
: hide hidden dup >search ficl-set-current ;
\ init - hook for extra startup behavior
: init ( -- ) s" /boot/boot.4th" fexists if s" /boot/boot.4th" fload then ;
\ ** E N D S O F T C O R E . F R