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

Correcting bug 8742

Browse Source 
svn: r6600
This commit is contained in:
Kathy Gray 2007-06-12 19:03:58 +00:00
parent c9bc26b06d
commit aa67ad7a9b
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/profj/types.ss
View File

@ -263,7 +263,7 @@
(define (name->type n container-class src level type-recs) (define (name->type n container-class src level type-recs)
(let* ((name (id-string (name-id n))) (let* ((name (id-string (name-id n)))
(path (map id-string (name-path n))) (path (map id-string (name-path n)))
(rec (get-record (type-exists? name path container-class src level type-recs) type-recs))) (rec (type-exists? name path container-class src level type-recs)))
(if (class-record? rec) (if (class-record? rec)
(make-ref-type (car (class-record-name rec)) (make-ref-type (car (class-record-name rec))
(cdr (class-record-name rec))) (cdr (class-record-name rec)))