Guard type-equal? test.

2010-05-27 12:46:37 -04:00 · 2010-05-27 12:46:37 -04:00 · 8194bcc4d4
commit 8194bcc4d4
parent 34fef6e538
1 changed files with 1 additions and 1 deletions
--- a/collects/typed-scheme/types/printer.rkt
+++ b/collects/typed-scheme/types/printer.rkt
@ -19,7 +19,7 @@
 (define (has-name? t) 
  (and print-aliases
       (for/first ([(n t*) (in-pairs (in-list ((current-type-names))))]
-                   #:when (type-equal? t t*))
+                   #:when (and (Type? t*) (type-equal? t t*)))
         n)))

 (define (print-filter c port write?)