conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixes bug 173165 and bug 173162: opaque and sealed for record types 

are not being enforced.
This commit is contained in:
Abdulaziz Ghuloum 2007-12-01 01:52:34 -05:00
parent 9d6f8511c8
commit bd06d39220
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/last-revision
View File

@ -1 +1 @@
1156 1157

4
scheme/psyntax.expander.ss
View File

@ -1582,11 +1582,11 @@
[(_ uid) `',uid] [(_ uid) `',uid]
[_ #f])] [_ #f])]
[sealed? [sealed?
(syntax-match (get-clause 'sealed? clause*) () (syntax-match (get-clause 'sealed clause*) ()
[(_ #t) #t] [(_ #t) #t]
[_ #f])] [_ #f])]
[opaque? [opaque?
(syntax-match (get-clause 'opaque? clause*) () (syntax-match (get-clause 'opaque clause*) ()
[(_ #t) #t] [(_ #t) #t]
[_ #f])] [_ #f])]
[fields [fields