openbios/fcode-utils/testsuite/TokeErrs/LitNums.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/TokeErrs/LitNums.fth

• \  Test whether d# 0 tokenizes the same as without the d#
  \  It's a named constant, you know, needn't be a literal...
  
  fcode-version2
  
  : lit-test ( -- )
     d# 0   0  = if ." Zero"  then
     d# 10 10  = if ." Ten"   then
     d#  3  3  = if ." Three" then
     d#  2  2  = if ." Two"   then
     d#  1  1  = if ." One"  then
  ;
  
  fcode-end
  

Download