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

Fix double application of format.

Browse Source 
Closes PR 11524.
This commit is contained in:
Vincent St-Amour 2010-12-10 16:54:27 -05:00
parent 948dfe9cf0
commit f8c01299f9
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-scheme/types/utils.rkt
View File

@ -171,7 +171,7 @@
(define (fv/list ts) (hash-map (combine-frees (map free-vars* ts)) (lambda (k v) k))) (define (fv/list ts) (hash-map (combine-frees (map free-vars* ts)) (lambda (k v) k)))
(define (tc-error/expr msg #:return [return (make-Union null)] #:stx [stx (current-orig-stx)] . rest) (define (tc-error/expr msg #:return [return (make-Union null)] #:stx [stx (current-orig-stx)] . rest)
(tc-error/delayed #:stx stx (apply format msg rest)) (apply tc-error/delayed #:stx stx msg rest)
return) return)
;; error for unbound variables ;; error for unbound variables