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

Better internal error reporting.

Browse Source
This commit is contained in:
Vincent St-Amour 2010-07-09 14:40:21 -04:00
parent b7229487a5
commit 58fe07ad70
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/typed-scheme/types/type-table.rkt
View File

@ -12,7 +12,13 @@
(when (optimize?) (when (optimize?)
(hash-set! table e t))) (hash-set! table e t)))
(define (type-of e) (hash-ref table e (lambda () (int-err (format "no type for ~a" (syntax->datum e)))))) (define (type-of e)
(hash-ref table e
(lambda () (int-err (format "no type for ~a at: ~a line ~a col ~a"
(syntax->datum e)
(syntax-source e)
(syntax-line e)
(syntax-column e))))))
(define struct-fn-table (make-free-id-table)) (define struct-fn-table (make-free-id-table))