edwinb/Idris2-boot
1
1
Fork 0
mirror of https://github.com/edwinb/Idris2-boot.git synced 2024-09-17 19:08:29 +03:00
Code Issues Projects Releases Wiki Activity

Don't use exact-floor in cast-string-int.

Browse Source
This commit is contained in:
Matus Tejiscak 2020-04-14 21:38:45 +02:00
parent c3b6b130fd
commit 41ef3fdd2a
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
support/chez/support.ss
View File

@ -25,7 +25,7 @@
(else x))))
(define cast-string-int
(lambda (x)
(exact-floor (cast-num (string->number (destroy-prefix x))))))
(floor (cast-num (string->number (destroy-prefix x))))))
(define exact-floor
(lambda (x)
(inexact->exact (floor x))))

2
support/chicken/support.scm
View File

@ -25,7 +25,7 @@
(else x))))
(define cast-string-int
(lambda (x)
(exact-floor (cast-num (string->number (destroy-prefix x))))))
(floor (cast-num (string->number (destroy-prefix x))))))
(define exact-floor
(lambda (x)
(inexact->exact (floor x))))

2
support/racket/support.rkt
View File

@ -25,7 +25,7 @@
(else x))))
(define cast-string-int
(lambda (x)
(exact-floor (cast-num (string->number (destroy-prefix x))))))
(floor (cast-num (string->number (destroy-prefix x))))))
(define cast-string-double
(lambda (x)
(cast-num (string->number (destroy-prefix x)))))