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

• 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/testNest.fth

• \  It seems that  fload  nesting diddent werk rite.
  \  Let's see just how bad it was...
  
  \  I fixed assigning FCode numbers, but not nesting
  \  Seemed it diddent nest more than one deep...
  
  \  Did I fix it?
  \  Yeah.  It was an artifact of an error in the test sequence...
  
  fcode-version2
  
  headers
  instance variable happy
  instance variable grumpy
  instance variable sleepy
  
  fload testNest1.fth
  
  : whatsit0ya ( -- )
     whatsit1ya
      ."  Happy is " happy @ .
      ."  Grumpy is " grumpy @ .
      ."  Sleepy is " sleepy @ .
     ['] downdate catch
  ;
  
  fcode-end
  

Download