Changeset 2291

Timestamp:

Jun 16, 2011 8:04:29 PM (2 years ago)

Author:

wmb

Message:

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

File:

• forth/lib/isin.fth (modified) (2 diffs)

forth/lib/isin.fth

@@ -43 +43 @@
 : 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)
@@ -78 +78 @@
 
 
-0 [if]
+[ifdef] notdef
 : reduce-to-quarter-cycle  ( -- )
    \ Move a cycle/4 to the left until negative, then fix