conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix bug when syntax-rules expand rules including vector

This commit is contained in:
zeptometer 2014-08-06 20:11:59 +09:00
parent b0c9c468c0
commit b91939f5aa
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
piclib/scheme/base.scm
View File

@ -517,7 +517,7 @@
(compile-match-vector (compile-match-vector
(lambda (pattern) (lambda (pattern)
(let-values (((match vars) (compile-match-list (vector->list pattern)))) (let-values (((match vars) (compile-match-base (vector->list pattern))))
(values (values
`(,_let ((expr (,_vector->list expr))) `(,_let ((expr (,_vector->list expr)))
,match) ,match)
@ -588,9 +588,10 @@
(compile-expand-vector (compile-expand-vector
(lambda (template ellipsis-valid) (lambda (template ellipsis-valid)
(let-values (((expand1 vars1) (let-values (((expand1 vars1)
(compile-expand-list (vector->list template) ellipsis-valid))) (compile-expand-base (vector->list template) ellipsis-valid)))
`(,_list->vector ,expand1) (values
vars1)))) `(,_list->vector ,expand1)
vars1)))))
(compile-expand-base template ellipsis))) (compile-expand-base template ellipsis)))