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

Fix broken internal error

Browse Source
This commit is contained in:
Asumu Takikawa 2013-05-23 20:05:37 -04:00
parent 404a314887
commit e6503c5df6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/typed-racket/private/type-contract.rkt
View File

@ -254,7 +254,7 @@
(match (map (f (not (= 1 (length arrs)))) arrs) (match (map (f (not (= 1 (length arrs)))) arrs)
[(list e) e] [(list e) e]
[l #`(case-> #,@l)])])] [l #`(case-> #,@l)])])]
[_ (int-err "not a function" f)])) [_ (int-err "not a function ~a" f)]))
;; Helpers for contract requirements ;; Helpers for contract requirements
(define (set-impersonator!) (define (set-impersonator!)