*** empty log message ***

original commit: 8f548b743309b11a79d707ee8a4fe180d0526152
tokens
Scott Owens 23 years ago
parent fc326539e2
commit 2636a24b10

@ -9,16 +9,14 @@
(define-struct token (name value) (make-inspector)) (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 #'hack #f))))) (define-tokens-helper stx #'here #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 #'hack #t))))) (define-tokens-helper stx #'here #t))))
) )

Loading…
Cancel
Save