*** 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-syntax define-tokens
(lambda (stx)
(define-syntax (define-tokens stx)
(syntax-case stx ()
((_ name ...)
(define-tokens-helper stx #'hack #f)))))
(define-tokens-helper stx #'here #f))))
(define-syntax define-empty-tokens
(lambda (stx)
(define-syntax (define-empty-tokens stx)
(syntax-case stx ()
((_ name ...)
(define-tokens-helper stx #'hack #t)))))
(define-tokens-helper stx #'here #t))))
)

Loading…
Cancel
Save