.

original commit: 2caf0f923be883760529560e886da1f2996a2901
2001-02-09 23:45:07 +00:00 · 2001-02-09 23:45:07 +00:00 · 1a90e665b5
commit 1a90e665b5
parent 7e1692324f
1 changed files with 1 additions and 1 deletions
--- 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))