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

adding missing flonum to (srfi 144) (fixes issue #434)

Browse source
This commit is contained in:
Alex Shinn 2017-08-09 22:46:46 +09:00
parent 2a712b0715
commit 836ddf6397
3 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/srfi/144.sld
View file

@ -27,7 +27,7 @@
fl-euler fl-e-euler fl-sin-1 fl-cos-1 fl-greatest fl-least
fl-integer-exponent-zero fl-integer-exponent-nan fl-fast-+*
flonum? fl= fl< fl> fl<= fl>= flodd? fleven?
flonum flonum? fl= fl< fl> fl<= fl>= flodd? fleven?
flunordered? flinteger? flzero? flpositive? flnegative?
fl+ fl- fl* fl/ fl+* flmax flmin flabsdiff

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

@ -11,6 +11,7 @@
(define flzero? zero?)
(define flpositive? positive?)
(define flnegative? negative?)
(define flonum exact->inexact)
(define fl+ +)
(define fl- -)

1
lib/srfi/144/test.sld
View file

@ -5,6 +5,7 @@
;; note default (current-test-epsilon) for (chibi test) test is 1e-5
(define (run-tests)
(test-begin "srfi-144: flonums")
(test-assert (flonum? (flonum 5)))
(test 5. (fl+ 2. 3.))
(test -1. (fl- 2. 3.))
(test 6. (fl* 2. 3.))