|
|
@ -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))))
|
|
|
|
)
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
|
|