From b91939f5aa15c4112a0643db22091b9cc7253575 Mon Sep 17 00:00:00 2001 From: zeptometer Date: Wed, 6 Aug 2014 20:11:59 +0900 Subject: [PATCH] fix bug when syntax-rules expand rules including vector --- piclib/scheme/base.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/piclib/scheme/base.scm b/piclib/scheme/base.scm index d08650b2..7f5368d5 100644 --- a/piclib/scheme/base.scm +++ b/piclib/scheme/base.scm @@ -517,7 +517,7 @@ (compile-match-vector (lambda (pattern) - (let-values (((match vars) (compile-match-list (vector->list pattern)))) + (let-values (((match vars) (compile-match-base (vector->list pattern)))) (values `(,_let ((expr (,_vector->list expr))) ,match) @@ -588,9 +588,10 @@ (compile-expand-vector (lambda (template ellipsis-valid) (let-values (((expand1 vars1) - (compile-expand-list (vector->list template) ellipsis-valid))) - `(,_list->vector ,expand1) - vars1)))) + (compile-expand-base (vector->list template) ellipsis-valid))) + (values + `(,_list->vector ,expand1) + vars1))))) (compile-expand-base template ellipsis)))