You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
25 lines
504 B
Scheme
25 lines
504 B
Scheme
#cs
|
|
(module token mzscheme
|
|
|
|
;; Defining tokens
|
|
|
|
(require-for-syntax "token-syntax.ss")
|
|
|
|
(provide define-tokens define-empty-tokens token-name token-value token?)
|
|
|
|
(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-empty-tokens
|
|
(lambda (stx)
|
|
(syntax-case stx ()
|
|
((_ name ...)
|
|
(define-tokens-helper stx #'hack #t)))))
|
|
)
|
|
|