openbios/openboot/obp/fm/lib/initsave.fth

• Show log

  Commit

• Hash : 1a08f436
  Author :
  Date : 2010-08-25T09:23:17
  

  change to well-formed svn directory structure. git-svn-id: svn://coreboot.org/openboot/trunk@2 4486e004-3823-0410-90c7-fb508cc143bb

Download

• obp/fm/lib/initsave.fth

• \ initsave.fth 1.1 94/09/01
  \ Copyright 1985-1990 FirmWorks  All rights reserved
  
  : $find-name  ( name -- acf )
     $find  0= if  ." Can't find " type  cr  abort  then
  ;
  : init-save  ( 'init-environment -- )
                   $find-name is init-environment
     " init"       $find-name is do-init
     " (cold-hook" $find-name is cold-hook
  
     here fence a!			\ Protect the dictionary
  ;
  

Download