.

original commit: b3fe96be86e9885a12489ba93421b9a34fe8ab3d
2002-02-13 20:03:23 +00:00 · 2002-02-13 20:03:23 +00:00 · d25c3aeeea
commit d25c3aeeea
parent dc5a48f857
1 changed files with 4 additions and 4 deletions
--- 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