[commit] r2291 - forth/lib

[repository service]

Author: wmb
Date: Thu Jun 16 20:04:29 2011
New Revision: 2291
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2291

Log:
Changed "0 [if]" to "[ifdef] notdef" because the FCode tokenizer doesn't like the former.

Modified:
   forth/lib/isin.fth

Modified: forth/lib/isin.fth
==============================================================================
--- forth/lib/isin.fth	Thu Jun 16 09:52:44 2011	(r2290)
+++ forth/lib/isin.fth	Thu Jun 16 20:04:29 2011	(r2291)
@@ -42,7 +42,7 @@
 \ Computes  (1 - (theta^2 / divisor) * last)
 : sin-step  ( last divisor -- next )  thetasq  swap /  times  one min  one swap -  ;

-0 [if]
+[ifdef] notdef
 \ Cos
 \ 1 - t^2/(2) + t^4/(2..4) - t^6/2..6) + t^8/(2..8)
 \ 1 - (t^2/(1*2)) * (1 - (t^2/(3*4)) * (1 - (t^2/(5*6)) * (1 - (t^2/(7*8))))
@@ -77,7 +77,7 @@
 ;

-0 [if]
+[ifdef] notdef
 : reduce-to-quarter-cycle  ( -- )
    \ Move a cycle/4 to the left until negative, then fix
    #cycle/4 -  dup 0<=  if  #cycle/4 +  (sin)          exit  then  ( theta' )  \ Quadrant 1