*** empty log message ***

original commit: 8f548b743309b11a79d707ee8a4fe180d0526152
23 years ago · 2636a24b10
parent fc326539e2
commit 2636a24b10
1 changed files with 8 additions and 10 deletions
--- a/collects/parser-tools/private-lex/token.ss
+++ b/collects/parser-tools/private-lex/token.ss
@ -9,16 +9,14 @@
  (define-struct token (name value) (make-inspector))
-  (define-syntax define-tokens
+  (define-syntax (define-tokens stx)
-    (lambda (stx)
+    (syntax-case stx ()
-      (syntax-case stx ()
+      ((_ name ...)
-	((_ name ...)
+       (define-tokens-helper stx #'here #f))))
 	 (define-tokens-helper stx #'hack #f)))))
-  (define-syntax define-empty-tokens
+  (define-syntax (define-empty-tokens stx)
-    (lambda (stx)
+    (syntax-case stx ()
-      (syntax-case stx ()
+      ((_ name ...)
-	((_ name ...)
+       (define-tokens-helper stx #'here #t))))
 	 (define-tokens-helper stx #'hack #t)))))
 )