edwinb/Idris2-boot
1
1
Fork 0
mirror of https://github.com/edwinb/Idris2-boot.git synced 2024-12-26 22:32:44 +03:00
Code Issues Projects Releases Wiki Activity

Fix runtime error in (the Int (cast "")).

Browse Source
This commit is contained in:
Matus Tejiscak 2020-03-29 20:33:46 +02:00
parent 725e5ac13d
commit 2cadbd2cd1
3 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
support/chez/support.ss
View File

@ -19,7 +19,8 @@
(if (number? x) x 0)))
(define destroy-prefix
(lambda (x)
(if (eqv? (string-ref x 0) #\#) "" x)))
(if (eqv? x "") ""
(if (eqv? (string-ref x 0) #\#) "" x))))
(define cast-string-int
(lambda (x)
(floor (cast-num (string->number (destroy-prefix x))))))

3
support/chicken/support.scm
View File

@ -19,7 +19,8 @@
(if (number? x) x 0)))
(define destroy-prefix
(lambda (x)
(if (eqv? (string-ref x 0) #\#) "" x)))
(if (eqv? x "") ""
(if (eqv? (string-ref x 0) #\#) "" x))))
(define cast-string-int
(lambda (x)
(floor (cast-num (string->number (destroy-prefix x))))))

3
support/racket/support.rkt
View File

@ -19,7 +19,8 @@
(if (number? x) x 0)))
(define destroy-prefix
(lambda (x)
(if (eqv? (string-ref x 0) #\#) "" x)))
(if (eqv? x "") ""
(if (eqv? (string-ref x 0) #\#) "" x))))
(define cast-string-int
(lambda (x)
(floor (cast-num (string->number (destroy-prefix x))))))