Changeset 36246 in project for release/5/mathh/trunk/mathh.scm


Ignore:
Timestamp:
08/13/18 04:25:38 (3 months ago)
Author:
kon
Message:

add modf*, rel 4.2.0

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/mathh/trunk/mathh.scm

    r36243 r36246  
    101101  log10 log2 log1p
    102102  log-with-base log/base
    103   modf frexp
     103  modf modf* frexp
    104104  ldexp scalbn
    105105  cosh sinh tanh
     
    325325  C_values( 4, av );
    326326  ") )
     327
     328(: modf* (float --> integer float))
     329;
     330(define (modf* x)
     331  (let-values (((i f) (modf x)))
     332    (values (inexact->exact i) f) ) )
    327333
    328334;; Return mantissa & exponent (as multiple values) of a flonum
Note: See TracChangeset for help on using the changeset viewer.