From 071aa725fd3231d291237109a89708a07decebda Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Thu, 20 Jul 2017 22:12:01 +0900 Subject: [PATCH] updating (srfi 144) with final changes (issue #426) --- lib/srfi/144/flonum.scm | 1 + lib/srfi/144/math.stub | 5 ++--- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/srfi/144/flonum.scm b/lib/srfi/144/flonum.scm index 7ac1f8ed..27c4c85d 100644 --- a/lib/srfi/144/flonum.scm +++ b/lib/srfi/144/flonum.scm @@ -21,6 +21,7 @@ (define (flabsdiff x y) (abs (- x y))) (define flnumerator numerator) (define fldenominator denominator) +(define flround round) (define (flsquare x) (fl* x x)) diff --git a/lib/srfi/144/math.stub b/lib/srfi/144/math.stub index 6660a995..76b4bc0c 100644 --- a/lib/srfi/144/math.stub +++ b/lib/srfi/144/math.stub @@ -109,7 +109,6 @@ (define-c double (flposdiff "fdim") (double double)) (define-c double (flfloor "floor") (double)) (define-c double (flceiling "ceil") (double)) -(define-c double (flround "round") (double)) (define-c double (fltruncate "trunc") (double)) (define-c double (flexp "exp") (double)) @@ -144,8 +143,8 @@ (define-c double (flgamma "tgamma") (double)) (define-c double lgamma_r (double (result int))) -(define-c double (flfirst-bessel "jn") (double int)) -(define-c double (flsecond-bessel "yn") (double int)) +(define-c double (flfirst-bessel "jn") (int double)) +(define-c double (flsecond-bessel "yn") (int double)) (define-c double (flerf "erf") (double)) (define-c double (flerfc "erfc") (double))