suzanne.soy/typed-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix optional argument to number<->string functions

Browse Source 
svn: r16123

original commit: cee0e5f3260e3571a54b546225aba4ee7c551f8e
This commit is contained in:
Eli Barzilay 2009-09-24 15:26:13 +00:00
parent 8eb494615f
commit 43c0b93899
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/typed-scheme/private/base-env.ss
View File

@ -243,7 +243,6 @@
[file-exists? (-> -Pathlike B)]
[build-path ((list -Pathlike*) -Pathlike* . ->* . -Path)]
[string->number (-> -String (-opt N))]
[with-input-from-file
(-poly (a) (cl-> [(-Pathlike (-> a)) a]
[(-Pathlike (-> a) Sym) a]))]
@ -382,10 +381,8 @@
[-> -String -String]
[-> -Bytes -Bytes])]
[number->string (N . -> . -String)]
[number->string (cl-> [(N) -String] [(N N) -String])]
[string->number (cl-> [(-String) N] [(-String N) N])]
[current-milliseconds (-> -Integer)]
[modulo (cl->* (-Integer -Integer . -> . -Integer))]
@ -737,4 +734,4 @@
[unsafe-cdr (-poly (a b)
(cl->*
(->acc (list (-pair a b)) b (list -cdr))))]
(->acc (list (-pair a b)) b (list -cdr))))]