Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

updating (srfi 144) with final changes (issue #426)

Browse source
This commit is contained in:
Alex Shinn 2017-07-20 22:12:01 +09:00
parent 700380ebe4
commit 071aa725fd
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lib/srfi/144/flonum.scm
View file

@ -21,6 +21,7 @@
(define (flabsdiff x y) (abs (- x y))) (define (flabsdiff x y) (abs (- x y)))
(define flnumerator numerator) (define flnumerator numerator)
(define fldenominator denominator) (define fldenominator denominator)
(define flround round)
(define (flsquare x) (fl* x x)) (define (flsquare x) (fl* x x))

5
lib/srfi/144/math.stub
View file

@ -109,7 +109,6 @@
(define-c double (flposdiff "fdim") (double double)) (define-c double (flposdiff "fdim") (double double))
(define-c double (flfloor "floor") (double)) (define-c double (flfloor "floor") (double))
(define-c double (flceiling "ceil") (double)) (define-c double (flceiling "ceil") (double))
(define-c double (flround "round") (double))
(define-c double (fltruncate "trunc") (double)) (define-c double (fltruncate "trunc") (double))
(define-c double (flexp "exp") (double)) (define-c double (flexp "exp") (double))
@ -144,8 +143,8 @@
(define-c double (flgamma "tgamma") (double)) (define-c double (flgamma "tgamma") (double))
(define-c double lgamma_r (double (result int))) (define-c double lgamma_r (double (result int)))
(define-c double (flfirst-bessel "jn") (double int)) (define-c double (flfirst-bessel "jn") (int double))
(define-c double (flsecond-bessel "yn") (double int)) (define-c double (flsecond-bessel "yn") (int double))
(define-c double (flerf "erf") (double)) (define-c double (flerf "erf") (double))
(define-c double (flerfc "erfc") (double)) (define-c double (flerfc "erfc") (double))