Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

allow syntax-rules to work with reference patterns

Browse source
This commit is contained in:
Alex Shinn 2022-03-15 19:06:49 +09:00
parent b32e6e15d0
commit 4382b9d3fd
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/init-7.scm
View file

@ -873,8 +873,8 @@
(set! count (+ count 1))
(rename (string->symbol (string-append s (%number->string count)))))
(define (expand-pattern pat tmpl)
(let lp ((p (cdr pat))
(x (list _cdr _expr))
(let lp ((p (if (pair? pat) (cdr pat) pat))
(x (if (pair? pat) (list _cdr _expr) _expr))
(dim 0)
(vars '())
(k (lambda (vars)