From f3c0de5891d894730c6e3ed01d4b59194e5fb051 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 18 Sep 2005 00:52:24 +0000 Subject: [PATCH] fix syntax-error message svn: r867 --- collects/plai/private/datatype-core.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/plai/private/datatype-core.ss b/collects/plai/private/datatype-core.ss index 78502d6c32..3ffc883962 100644 --- a/collects/plai/private/datatype-core.ss +++ b/collects/plai/private/datatype-core.ss @@ -283,7 +283,7 @@ #,@(if (memq 'define-compatibility options) #`((define-proc-values (make-variant-name ...) (values variant-name ...))) null)))))] - [(_ orig-stx (option ...) name pred-name variant ...) + [(_ orig-stx (option ...) define-proc-values name (alpha ...) pred-name variant ...) ;; Must be a bad variant... (for-each (lambda (variant) (syntax-case variant ()