Changeset 2291


Ignore:
Timestamp:
Jun 16, 2011, 8:04:29 PM (4 years ago)
Author:
wmb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • forth/lib/isin.fth

    r2260 r2291  
    4343: sin-step  ( last divisor -- next )  thetasq  swap /  times  one min  one swap -  ;
    4444
    45 0 [if]
     45[ifdef] notdef
    4646\ Cos
    4747\ 1 - t^2/(2) + t^4/(2..4) - t^6/2..6) + t^8/(2..8)
     
    7878
    7979
    80 0 [if]
     80[ifdef] notdef
    8181: reduce-to-quarter-cycle  ( -- )
    8282   \ Move a cycle/4 to the left until negative, then fix
Note: See TracChangeset for help on using the changeset viewer.