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

don't rewrite quote

Browse source
This commit is contained in:
Alex Shinn 2020-08-25 16:09:38 +09:00
parent 9d65c61350
commit 11852c6390
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/chibi/match-test.sld
View file

@ -235,6 +235,8 @@
(match-letrec (((x y) (list 1 (lambda () (list a x)))) (match-letrec (((x y) (list 1 (lambda () (list a x))))
((a b) (list 2 (lambda () (list x a))))) ((a b) (list 2 (lambda () (list x a)))))
(append (y) (b)))) (append (y) (b))))
(test "match-letrec quote" #t
(match-letrec (((x 'x) (list #t 'x))) x))
(cond-expand (cond-expand
(chibi (chibi

4
lib/chibi/match/match.scm
View file

@ -1047,7 +1047,9 @@
;; macros using syntax-rules" sent to comp.lang.scheme in Nov 2001. ;; macros using syntax-rules" sent to comp.lang.scheme in Nov 2001.
(define-syntax match-rewrite (define-syntax match-rewrite
(syntax-rules () (syntax-rules (quote)
((match-rewrite (quote x) ids (k ...))
(k ... (quote x)))
((match-rewrite (p . q) ids k) ((match-rewrite (p . q) ids k)
(match-rewrite p ids (match-rewrite2 q ids (match-cons k)))) (match-rewrite p ids (match-rewrite2 q ids (match-cons k))))
((match-rewrite () ids (k ...)) ((match-rewrite () ids (k ...))