From 6864440c7e42f15d1960ef452631b57778774283 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 27 Aug 2006 23:10:29 +0000 Subject: [PATCH] class-level mixin syntax reports reported as from mixin svn: r4159 --- collects/mzlib/private/class-internal.ss | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/mzlib/private/class-internal.ss b/collects/mzlib/private/class-internal.ss index 098581d74f..414146c92f 100644 --- 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