openbios/openboot/obp/fm/lib/alias.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/alias.fth

• \ alias.fth 2.6 94/09/04
  \ Copyright 1985-1994 Bradley Forthware
  
  \ Alias makes a new word which behaves exactly like an existing
  \ word.  This works whether the new word is encountered during
  \ compilation or interpretation, and does the right thing even
  \  if the old word is immediate.
  
  decimal
  
  : setalias  ( xt +-1 -- )
     0> if  immediate  then                ( acf )
     flagalias
     lastacf  here - allot   token,
  ;
  : alias  \ new-name old-name  ( -- )
     create  hide  'i  reveal  setalias
  ;
  

Download