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

fixed error message bug for naming a method the same as the constructor

Browse Source 
svn: r550
This commit is contained in:
Kathy Gray 2005-08-04 18:12:41 +00:00
parent 3881680c95
commit 7ed2a33211
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/profj/build-info.ss
View File

@ -832,9 +832,9 @@
(length (method-parms (car members))))
(andmap type=?
(method-record-atypes member-record)
;(map (lambda (t)
;(type-spec-to-type t (method-record-class member-record) level type-recs))
(map field-type-spec (method-parms (car members))));)
(map (lambda (t)
(type-spec-to-type t (method-record-class member-record) level type-recs))
(map field-type-spec (method-parms (car members)))))
(type=? (method-record-rtype member-record)
(type-spec-to-type (method-type (car members)) (method-record-class member-record) level type-recs)))
(car members)