fix type of assq

svn: r11872

original commit: 77e9b026b3a50d6430b4120e40dce511a5e26e7e
This commit is contained in:
Sam Tobin-Hochstadt 2008-09-25 15:56:55 +00:00
parent a7a6f1451e
commit bd6862fae4

View File

@ -223,7 +223,7 @@
[string->path (-> -String -Path)]
[file-exists? (-> -Pathlike B)]
[assq (-poly (a) (-> Univ (-lst (-pair Univ a)) a))]
[assq (-poly (a b) (a (-lst (-pair a b)) . -> . (Un (-pair a b) (-val #f))))]
[build-path ((list -Pathlike*) -Pathlike* . ->* . -Path)]
[string->number (-> -String (-opt N))]