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

More info in internal errors.

Browse Source 
Fix substitution in nested ... case.
This commit is contained in:
Sam Tobin-Hochstadt 2008-07-07 14:25:15 -04:00
parent 3cd8878999
commit 61cefef89c
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/typed-scheme/private/tc-utils.ss
View File

@ -106,8 +106,10 @@
(define-struct (exn:fail:tc exn:fail) ()) (define-struct (exn:fail:tc exn:fail) ())
;; raise an internal error - typechecker bug! ;; raise an internal error - typechecker bug!
(define (int-err msg . args) (define (int-err msg . args)
(raise (make-exn:fail:tc (string-append "Internal Typechecker Error: " (apply format msg args)) (raise (make-exn:fail:tc (string-append "Internal Typechecker Error: "
(apply format msg args)
(format "\nwhile typechecking\n~a" (syntax->datum (current-orig-stx))))
(current-continuation-marks)))) (current-continuation-marks))))
(define-syntax (nyi stx) (define-syntax (nyi stx)

3
collects/typed-scheme/private/type-utils.ss
View File

@ -40,7 +40,8 @@
[#:arr dom rng rest drest thn-eff els-eff [#:arr dom rng rest drest thn-eff els-eff
(begin (begin
(when (and (pair? drest) (when (and (pair? drest)
(eq? name (cdr drest))) (eq? name (cdr drest))
(just-Dotted? name))
(int-err "substitute used on ... variable ~a in type ~a" name target)) (int-err "substitute used on ... variable ~a in type ~a" name target))
(make-arr (map sb dom) (make-arr (map sb dom)
(sb rng) (sb rng)