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

remove redundunt code

This commit is contained in:
Yuito Murase 2014-04-02 01:32:24 +09:00
parent d8ed0b384c
commit 1352735f3d
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
piclib/syntax-rules.scm
View File

@ -225,17 +225,9 @@
(values (values
`(,_quasiquote (,@(reverse expands) . (,_unquote ,expand1))) `(,_quasiquote (,@(reverse expands) . (,_unquote ,expand1)))
(append vars vars1)))) (append vars vars1))))
;; (hoge . poyo)
((not (pair? (cdr template)))
(let*-values (((expand1 vars1)
(compile-expand-base (car template) ellipsis-valid))
((expand2 vars2)
(compile-expand-base (cdr template) ellipsis-valid)))
(values
`(,_quasiquote (,@(reverse expands) (,_unquote ,expand1) . (,_unquote ,expand2)))
(append (append vars vars1) vars2))))
;; (a ... rest syms) ;; (a ... rest syms)
((and ellipsis-valid ((and ellipsis-valid
(pair? (cdr template))
(eq? (cadr template) ellipsis)) (eq? (cadr template) ellipsis))
(let-values (((expand1 vars1) (let-values (((expand1 vars1)
(compile-expand-base (car template) ellipsis-valid))) (compile-expand-base (car template) ellipsis-valid)))