Changeset 34955 in project


Ignore:
Timestamp:
12/24/17 19:47:31 (3 weeks ago)
Author:
kon
Message:

dep make-log/base 4 log-with-base

Location:
release/4/mathh/trunk
Files:
2 edited

Legend:

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

    r34784 r34955  
    3232  cbrt
    3333  hypot
    34   log10 log2 make-log/base log1p
     34  log10 log2 log-with-base log1p
    3535  modf frexp
    3636  ldexp scalbn
     
    4040  bessel-j0 bessel-j1 bessel-jn
    4141  bessel-y0 bessel-y1 bessel-yn
    42   erf erfc)
     42  erf erfc
     43  ;DEPRECATED
     44  make-log/base)
    4345
    4446(import scheme chicken foreign)
     
    250252;; Log function for base n
    251253
    252 (define (make-log/base b)
     254(define (log-with-base b)
    253255        (cond
    254256          ((= 2 b)  log2 )
     
    259261          ((foreign-lambda* double ((double x) (double lnb))
    260262            "C_return( log( x ) / lnb );") n lnb)) ) ) ) )
     263
     264(define make-log/base log-with-base)
    261265
    262266;; Flonum remainder
  • release/4/mathh/trunk/mathh.setup

    r34782 r34955  
    1212
    1313;* (The compiler option '-inline-global' causes problems; so no -O3+.)
    14 (setup-shared+static-extension-module (extension-name) (extension-version "3.2.4")
     14(setup-shared+static-extension-module (extension-name) (extension-version "3.3.0")
    1515  ;cannot be inline #1340
    1616  ;#:inline? #t
     
    1919  #:files '("mathh-constants.scm"))
    2020
    21 (setup-shared+static-extension-module 'mathh-consts (extension-version "3.2.4")
     21(setup-shared+static-extension-module 'mathh-consts (extension-version "3.3.0")
    2222  #:inline? #t
    2323  #:types? #t
     
    2727    -no-bound-checks -no-argc-checks -no-procedure-checks))
    2828
    29 (setup-shared+static-extension-module 'fp-utils (extension-version "3.2.4")
     29(setup-shared+static-extension-module 'fp-utils (extension-version "3.3.0")
    3030  #:inline? #t
    3131  #:types? #t
     
    3535    -no-procedure-checks))
    3636
    37 (setup-shared+static-extension-module 'fx-utils (extension-version "3.2.4")
     37(setup-shared+static-extension-module 'fx-utils (extension-version "3.3.0")
    3838  #:inline? #t
    3939  #:types? #t
Note: See TracChangeset for help on using the changeset viewer.