openbios/fcode-utils/testlogs/testlogs-ppc-linux/TokeErrs/LitNums.fth

• Show log

  Commit

• Hash : ed679850
  Author :
  Date : 2006-10-30T17:01:46
  

  commit testlogs git-svn-id: svn://coreboot.org/openbios/fcode-utils@110 f158a5a8-5612-0410-a976-696ce0be7e32

Download

• testlogs/testlogs-ppc-linux/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