Preliminary syntax ducking.

This commit is contained in:
Dominik Pantůček 2023-07-06 19:37:48 +02:00
parent 396e2d9896
commit e6d798bc2a
6 changed files with 43 additions and 9 deletions

View file

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