Changeset 35312 in project


Ignore:
Timestamp:
03/20/18 15:58:51 (4 months ago)
Author:
kon
Message:

fix #>...#< (& other fever detritus)

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

Legend:

Unmodified
Added
Removed
  • release/4/mathh/trunk/fp-utils.scm

    r35264 r35312  
    55;;;; Issues
    66;;
    7 ;; - all instances of (fl<? -0.0 0.0) found ?
     7;; - all instances of (fl< -0.0 0.0) found ?
    88
    99(module fp-utils
     
    108108;
    109109(define (fpzero? n)
    110   (fp= 0.0 n) )
     110  (or (fp= 0.0 n) (fp= -0.0 n)) )
    111111
    112112(: fppositive? (float --> boolean))
    113113;
    114114(define (fppositive? n)
    115   (or
    116     (fp= -0.0 n)
    117     (fp< 0.0 n)) )
     115  (fp< 0.0 n) )
    118116
    119117(: fpcardinal? (float --> boolean))
    120118;
    121119(define (fpcardinal? n)
    122   (and
    123     (not (fp= -0.0 n))
    124     (fp<= 0.0 n)) )
     120  (fp<= 0.0 n) )
    125121
    126122(: fpnegative? (float --> boolean))
    127123;
    128124(define (fpnegative? n)
    129   (and
    130     (not (fp= -0.0 n))
    131     (fp> 0.0 n)) )
     125  (fp> 0.0 n) )
    132126
    133127(: fpnon-positive? (float --> boolean))
  • release/4/mathh/trunk/fx-utils.scm

    r35269 r35312  
    3030
    3131(import scheme chicken foreign)
     32(use
     33  (only extras random))
    3234
    3335;;;
     
    7880# undef rem
    7981}
    80 #<
     82<#
    8183
    8284(define C_uword_log2
  • release/4/mathh/trunk/mathh.scm

    r35269 r35312  
    117117}
    118118#endif
    119 #<
     119<#
    120120
    121121;;; Unimplemented Support
  • release/4/mathh/trunk/mathh.setup

    r35286 r35312  
    1212
    1313;* (The compiler option '-inline-global' causes problems; so no -O3+.)
    14 (setup-shared+static-extension-module (extension-name) (extension-version "3.4.1")
     14(setup-shared+static-extension-module (extension-name) (extension-version "3.4.2")
    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.4.1")
     21(setup-shared+static-extension-module 'mathh-consts (extension-version "3.4.2")
    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.4.1")
     29(setup-shared+static-extension-module 'fp-utils (extension-version "3.4.2")
    3030  #:inline? #t
    3131  #:types? #t
     
    3535    -no-procedure-checks))
    3636
    37 (setup-shared+static-extension-module 'fx-utils (extension-version "3.4.1")
     37(setup-shared+static-extension-module 'fx-utils (extension-version "3.4.2")
    3838  #:inline? #t
    3939  #:types? #t
Note: See TracChangeset for help on using the changeset viewer.