From 2636a24b10c9e5517e6e3d6220eb321b4b9c8b36 Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Sat, 5 Jan 2002 05:19:43 +0000 Subject: [PATCH] *** empty log message *** original commit: 8f548b743309b11a79d707ee8a4fe180d0526152 --- collects/parser-tools/private-lex/token.ss | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) diff --git a/collects/parser-tools/private-lex/token.ss b/collects/parser-tools/private-lex/token.ss index 14f8e7f..4dface3 100644 --- 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 - (lambda (stx) - (syntax-case stx () - ((_ name ...) - (define-tokens-helper stx #'hack #f))))) + (define-syntax (define-tokens stx) + (syntax-case stx () + ((_ name ...) + (define-tokens-helper stx #'here #f)))) - (define-syntax define-empty-tokens - (lambda (stx) - (syntax-case stx () - ((_ name ...) - (define-tokens-helper stx #'hack #t))))) + (define-syntax (define-empty-tokens stx) + (syntax-case stx () + ((_ name ...) + (define-tokens-helper stx #'here #t)))) )