From cb12af77ed35923b410d32ecf2044816f42d06c2 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Thu, 2 Jun 2005 02:24:27 +0000 Subject: [PATCH] merged 46:47 from branches/sstrickl svn: r48 --- collects/honu/parsers/parse.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/honu/parsers/parse.ss b/collects/honu/parsers/parse.ss index a9d16111f3..4516505665 100644 --- a/collects/honu/parsers/parse.ss +++ b/collects/honu/parsers/parse.ss @@ -537,7 +537,7 @@ O_CURLY fmidefns supernew fmidefns exports C_CURLY) (let ([mixin-name (datum->syntax-object $3 (string->symbol (string-append "$" (symbol->string (syntax-e $3)))))] [subclass-stx (create-src-stx 'honu-subclass source-name $1-start-pos $18-end-pos)]) - (list (make-honu-mixin subclass-stx mixin-name $6 $10 #f (cdr $4) (car $4) $11 (cdr $12) (car $12) $14 $15 $16 $17) + (list (make-honu-mixin subclass-stx mixin-name $6 $10 #t (cdr $4) (car $4) $11 (cdr $12) (car $12) $14 $15 $16 $17) (make-honu-subclass subclass-stx $3 mixin-name $8)))]) ;; Expressions