brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Finish ducking util-tag.

Browse source
This commit is contained in:
Dominik Pantůček 2023-07-06 19:44:06 +02:00
parent e6d798bc2a
commit 3833196533
5 changed files with 14 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/duck.scm
View file

@ -74,7 +74,11 @@
expr)))
(define-syntax duck-extract-doc
(syntax-rules (define/doc make-parameter define*/doc define-syntax/doc)
(syntax-rules (define/doc make-parameter define*/doc define-syntax/doc syntax-rules)
((_ (define-syntax/doc id doc
(syntax-rules (literal ...)
(pattern template) ...)))
(list 'STX 'id `doc '(pattern ...)))
((_ (define-syntax/doc id doc transformer))
(list 'STX 'id `doc))
((_ (define/doc (proc . args) doc expr ...))