From 1a90e665b55b772f96cdca74cfe6cafecb63b4e0 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 9 Feb 2001 23:45:07 +0000 Subject: [PATCH] . original commit: 2caf0f923be883760529560e886da1f2996a2901 --- collects/mzlib/private/sigutil.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mzlib/private/sigutil.ss b/collects/mzlib/private/sigutil.ss index d11805a..ec2f9b8 100644 --- a/collects/mzlib/private/sigutil.ss +++ b/collects/mzlib/private/sigutil.ss @@ -143,7 +143,7 @@ (let ([name (syntax name)] [fields (syntax->list (syntax (field ...)))] [omissions (syntax->list (syntax (omission ...)))]) - (unless (identifier? (syntax name)) + (unless (identifier? name) (syntax-error who expr "struct name is not an identifier" name))