From d25c3aeeea6371a43986847b2b1f7486a0913e71 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 13 Feb 2002 20:03:23 +0000
Subject: [PATCH] .

original commit: b3fe96be86e9885a12489ba93421b9a34fe8ab3d
---
 collects/mzlib/private/sigutil.ss | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/collects/mzlib/private/sigutil.ss b/collects/mzlib/private/sigutil.ss
index 64ff027..03957e2 100644
--- a/collects/mzlib/private/sigutil.ss
+++ b/collects/mzlib/private/sigutil.ss
@@ -161,15 +161,15 @@
 					      (if (null? omissions)
 						  (values names no-set? no-sel?)
 						  (let ([rest (cdr omissions)])
-						    (syntax-case (car omissions) (-selectors
-										  -setters
-										  -)
+						    (syntax-case (car omissions) ()
 						      [-selectors
+						       (literal? -selectors)
 						       (loop rest names #t no-sel?)]
 						      [-setters
+						       (literal? -setters)
 						       (loop rest names no-set? #t)]
 						      [(- name)
-						       (identifier? (syntax name))
+						       (and (literal? -) (identifier? (syntax name)))
 						       (loop rest (cons (syntax name) names)
 							     no-set? no-sel?)]
 						      [else