openbios/fcode-utils/testsuite/TokoLoco/testNest3.fth

Branch - branch -master- tag -v1.0.3v1.0.2v1.0.1v1.0.0

• Show log

  Commit

• Hash : acf5213f
  Author :
  Date : 2006-10-14T20:31:53
  

  testsuite 1.0.0 git-svn-id: svn://coreboot.org/openbios/fcode-utils@91 f158a5a8-5612-0410-a976-696ce0be7e32

Download

• testsuite/TokoLoco/testNest3.fth

• 
  
  external
  h# 30 constant  _local-storage-size_
  headers
  
  instance variable sleazy
  instance variable cheapy
  instance variable scruffy
  
  : update  " Updated Thu, 29 Sep 2005 at 11:34 PDT by David L. Paktor" ;
  
  fload LocalValuesSupport.fth
  
  : downdate ['] update catch ;
  
  : whatsit3ya ( -- )
      ."  Sleazy is " sleazy @ .
      ."  Cheapy is " cheapy @ .
      ."  Scruffy is " scruffy @ .
  ;
  
  

Download