conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Added fixnum->flonum

This commit is contained in:
Abdulaziz Ghuloum 2007-09-02 21:02:06 -04:00
parent 46193467c5
commit 6ff9e3dc9c
4 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

11
src/ikarus.numerics.ss
View File

@ -8,12 +8,13 @@
(library (ikarus flonums)
(export $flonum->exact $flonum-signed-biased-exponent flonum-parts
inexact->exact exact $flonum-rational? $flonum-integer? $flzero?
$flnegative? flpositive? flabs)
$flnegative? flpositive? flabs fixnum->flonum)
(import
(ikarus system $bytevectors)
(except (ikarus system $flonums) $flonum-signed-biased-exponent
$flonum-rational? $flonum-integer?)
(except (ikarus) inexact->exact exact flpositive? flabs))
(except (ikarus) inexact->exact exact flpositive? flabs
fixnum->flonum))
(define (flonum-bytes f)
(unless (flonum? f)
@ -130,6 +131,12 @@
($fl* x -1.0)
x)
(error 'flabs "~s is not a flonum" x)))
(define (fixnum->flonum x)
(if (fixnum? x)
($fixnum->flonum x)
(error 'fixnum->flonum "~s is not a fixnum")))
)

1
src/makefile.ss
View File

@ -492,6 +492,7 @@
[exact-integer-sqrt i r]
[exact->inexact i r]
[inexact->exact i r]
[fixnum->flonum i r]
[exact i r]
[inexact i r]
[random i]

2
src/todo-r6rs.ss
View File

@ -298,7 +298,7 @@
[fxxor D fx]
[fxzero? D fx]
;;;
[fixnum->flonum S fl]
[fixnum->flonum C fl]
[fl* C fl]
[fl+ C fl]
[fl- C fl]