From 4c63166f16956ee0510dbc54b4202723a0b9e9ac Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 2 Mar 2008 06:28:47 +0000 Subject: [PATCH] fix error message svn: r8847 --- collects/scheme/private/norm-define.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/scheme/private/norm-define.ss b/collects/scheme/private/norm-define.ss index 20af4ab5d9..f015b6eb6e 100644 --- a/collects/scheme/private/norm-define.ss +++ b/collects/scheme/private/norm-define.ss @@ -22,7 +22,7 @@ (raise-syntax-error #f (syntax-case stx () - [(_ id expr ...) + [(_ id expr0 expr ...) "bad syntax (multiple expressions after identifier)"] [(_ id) "bad syntax (zero expressions after identifier)"]