class-level mixin syntax reports reported as from mixin

svn: r4159
2006-08-27 23:10:29 +00:00 · 2006-08-27 23:10:29 +00:00 · 6864440c7e
commit 6864440c7e
parent 066b4386e4
1 changed files with 4 additions and 3 deletions
--- a/collects/mzlib/private/class-internal.ss
+++ b/collects/mzlib/private/class-internal.ss
@ -3365,9 +3365,10 @@
           
           ;; Build the class expression first, to give it a good src location:
           (with-syntax ([class-expr
-                          (syntax/loc stx
-                            (class* super% (to-ids ...)
-                              clauses ...))])
+                          (with-syntax ([orig-stx stx])
+                            (syntax/loc stx
+                              (class/derived orig-stx [#f super% (to-ids ...) #f]
+                                clauses ...)))])
             
             ;; Now build mixin proc, again to give it a good src location:
             (with-syntax ([mixin-expr