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

Merge pull request #780 from jpellegrini/srfi-144-fix

Browse source 
Add missing constants to SRFI-144
This commit is contained in:
Alex Shinn 2021-11-07 09:56:24 +09:00 • committed by GitHub
commit 7be38e044a
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 22 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lib/srfi/144.sld
View file

@ -20,13 +20,14 @@
(balanced-quotient flbalanced-quotient) (balanced-quotient flbalanced-quotient)
(balanced-remainder flbalanced-remainder))) (balanced-remainder flbalanced-remainder)))
(export (export
fl-e fl-e-2 fl-log2-e fl-log10-e fl-log-2 fl-log-10 fl-pi fl-e fl-1/e fl-e-2 fl-e-pi/4 fl-log2-e fl-log10-e fl-log-2
fl-1/pi fl-2/pi fl-pi/2 fl-pi/4 fl-sqrt-pi fl-2/sqrt-pi fl-1/log-2 fl-log-3 fl-log-pi fl-log-10 fl-1/log-10 fl-pi
fl-sqrt-2 fl-sqrt-3 fl-sqrt-5 fl-sqrt-10 fl-1/sqrt-2 fl-1/pi fl-2pi fl-2/pi fl-pi/2 fl-pi/4 fl-pi-squared fl-degree
fl-cbrt-2 fl-cbrt-3 fl-4thrt-2 fl-phi fl-log-phi fl-1/log-phi fl-sqrt-pi fl-2/sqrt-pi fl-sqrt-2 fl-sqrt-3 fl-sqrt-5 fl-sqrt-10
fl-euler fl-e-euler fl-sin-1 fl-cos-1 fl-greatest fl-least fl-1/sqrt-2 fl-cbrt-2 fl-cbrt-3 fl-4thrt-2 fl-phi fl-log-phi
fl-epsilon fl-integer-exponent-zero fl-integer-exponent-nan fl-1/log-phi fl-euler fl-e-euler fl-sin-1 fl-cos-1 fl-gamma-1/2
fl-fast-+* fl-gamma-1/3 fl-gamma-2/3 fl-greatest fl-least fl-epsilon
fl-integer-exponent-zero fl-integer-exponent-nan fl-fast-+*
flonum flonum? fl=? fl<? fl>? fl<=? fl>=? flodd? fleven? flonum flonum? fl=? fl<? fl>? fl<=? fl>=? flodd? fleven?
flunordered? flinteger? flzero? flpositive? flnegative? flunordered? flinteger? flzero? flpositive? flnegative?

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

@ -3,18 +3,27 @@
(define-c-const double (define-c-const double
(fl-e "M_E") (fl-e "M_E")
(fl-1/e "1.0/M_E")
(fl-e-2 "logb(2.0)") (fl-e-2 "logb(2.0)")
(fl-e-pi/4 "exp(M_PI/4.0)")
(fl-log2-e "M_LOG2E") (fl-log2-e "M_LOG2E")
(fl-log10-e "M_LOG10E") (fl-log10-e "M_LOG10E")
(fl-log-2 "M_LN2") (fl-log-2 "M_LN2")
(fl-1/log-2 "1.0/M_LN2")
(fl-log-3 "log(3.0)")
(fl-log-pi "log(M_PI)")
(fl-log-10 "M_LN10") (fl-log-10 "M_LN10")
(fl-1/log-10 "1.0/M_LN10")
(fl-pi "M_PI") (fl-pi "M_PI")
(fl-1/pi "M_1_PI") (fl-1/pi "M_1_PI")
(fl-2/pi "M_2_PI") (fl-2pi "2.0*M_PI")
(fl-pi/2 "M_PI/2") (fl-pi/2 "M_PI/2")
(fl-pi/4 "M_PI/4") (fl-pi/4 "M_PI/4")
(fl-sqrt-pi "sqrt(M_PI)") (fl-pi-squared "M_PI*M_PI")
(fl-degree "M_PI/180")
(fl-2/pi "M_2_PI")
(fl-2/sqrt-pi "M_2_SQRTPI") (fl-2/sqrt-pi "M_2_SQRTPI")
(fl-sqrt-pi "sqrt(M_PI)")
(fl-sqrt-2 "M_SQRT2") (fl-sqrt-2 "M_SQRT2")
(fl-sqrt-3 "sqrt(3.0)") (fl-sqrt-3 "sqrt(3.0)")
(fl-sqrt-5 "sqrt(5.0)") (fl-sqrt-5 "sqrt(5.0)")
@ -30,6 +39,9 @@
(fl-e-euler "exp(0.57721566490153286060651209008240243)") (fl-e-euler "exp(0.57721566490153286060651209008240243)")
(fl-sin-1 "sin(1.0)") (fl-sin-1 "sin(1.0)")
(fl-cos-1 "cos(1.0)") (fl-cos-1 "cos(1.0)")
(fl-gamma-1/2 "tgamma(1.0/2.0)")
(fl-gamma-1/3 "tgamma(1.0/3.0)")
(fl-gamma-2/3 "tgamma(2.0/3.0)")
(fl-greatest "DBL_MAX") (fl-greatest "DBL_MAX")
(fl-least "-DBL_MAX") (fl-least "-DBL_MAX")
(fl-integer-exponent-zero "FP_ILOGB0") (fl-integer-exponent-zero "FP_ILOGB0")