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

fix the fold for Class types

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2010-04-27 11:39:15 -04:00
parent f1401ad9b6
commit 826eeab7cb
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/typed-scheme/rep/type-rep.ss
View File

@ -316,13 +316,14 @@
[#:fold-rhs (match (list pos-flds name-flds methods)
[(list
pos-tys
(list (list init-names init-tys) ___)
(list (list init-names init-tys reqd) ___)
(list (list mname mty) ___))
(*Class
(map type-rec-id pos-tys)
(map list
init-names
(map type-rec-id init-tys))
(map type-rec-id init-tys)
reqd)
(map list mname (map type-rec-id mty)))])])
;; cls : Class