From dbaccc2d5c07adaa77b81b0c3afd795141f2b625 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 19 Jan 2007 01:50:17 +0000 Subject: [PATCH] fix cert problem when internal and external names are provided, but no initial value is provided svn: r5403 --- collects/mzlib/private/class-internal.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mzlib/private/class-internal.ss b/collects/mzlib/private/class-internal.ss index 4cb716644c..11e36935ce 100644 --- a/collects/mzlib/private/class-internal.ss +++ b/collects/mzlib/private/class-internal.ss @@ -66,12 +66,12 @@ e (syntax-property (syntax-case e () - [((n1 n2) expr) + [((n1 n2) . expr) (quasisyntax/loc e (#,(syntax-property #'(n1 n2) 'certify-mode 'transparent) - expr))] + . expr))] [_else e]) 'certify-mode 'transparent))) (syntax-e #'(elem (... ...)))))