Preliminary syntax ducking.
This commit is contained in:
parent
396e2d9896
commit
e6d798bc2a
6 changed files with 43 additions and 9 deletions
|
@ -25,8 +25,11 @@
|
|||
|
||||
(declare (unit util-tag))
|
||||
|
||||
(module
|
||||
(import duck)
|
||||
|
||||
(module*
|
||||
util-tag
|
||||
#:doc ("A unifying module for compound data structures tagging.")
|
||||
(
|
||||
make-tag
|
||||
util-tag-make
|
||||
|
@ -37,7 +40,11 @@
|
|||
(chicken random))
|
||||
|
||||
;; Syntactic wrapper to allow easy tag creation
|
||||
(define-syntax make-tag
|
||||
(define-syntax/doc make-tag
|
||||
("* ```name``` - unquoted symbol to base the tag on
|
||||
|
||||
Creates a unique and collision free symbol to identify compound data
|
||||
structures based on lists and pairs.")
|
||||
(syntax-rules ()
|
||||
((_ tag)
|
||||
(util-tag-make 'tag))))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue