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

Guard type-equal? test.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2010-05-27 12:46:37 -04:00
parent 34fef6e538
commit 8194bcc4d4
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/printer.rkt
View File

@ -19,7 +19,7 @@
(define (has-name? t) (define (has-name? t)
(and print-aliases (and print-aliases
(for/first ([(n t*) (in-pairs (in-list ((current-type-names))))] (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))) n)))
(define (print-filter c port write?) (define (print-filter c port write?)