Fixed the type of real->decimal-string.
This commit is contained in:
parent
636fca1a83
commit
cdfbbc5476
|
@ -4,7 +4,7 @@
|
|||
(only-in mzlib/string real->decimal-string)
|
||||
racket/flonum)
|
||||
|
||||
(: to-str (Number -> String))
|
||||
(: to-str (Real -> String))
|
||||
(define (to-str n) (real->decimal-string n 6))
|
||||
|
||||
(let: loop : Void
|
||||
|
|
|
@ -165,7 +165,7 @@
|
|||
(cl->* [->opt [-Input-Port index-type] (Un -Byte (-val eof))])]
|
||||
|
||||
;; string.rkt
|
||||
[real->decimal-string (N [index-type] . ->opt . -String)]
|
||||
[real->decimal-string (-Real [index-type] . ->opt . -String)]
|
||||
|
||||
[random (cl-> [(index-type) -Nat] [() -Real])]
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user