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.