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

are not being enforced.
2007-12-01 01:52:34 -05:00 · 2007-12-01 01:52:34 -05:00 · bd06d39220
parent 9d6f8511c8
commit bd06d39220
2 changed files with 3 additions and 3 deletions
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1156
+1157
--- a/scheme/psyntax.expander.ss
+++ b/scheme/psyntax.expander.ss
@ -1582,11 +1582,11 @@
                 [(_ uid) `',uid]
                 [_       #f])]
              [sealed?
-               (syntax-match (get-clause 'sealed? clause*) ()
+               (syntax-match (get-clause 'sealed clause*) ()
                 [(_ #t) #t]
                 [_      #f])]
              [opaque?
-               (syntax-match (get-clause 'opaque? clause*) ()
+               (syntax-match (get-clause 'opaque clause*) ()
                 [(_ #t) #t]
                 [_      #f])]
              [fields