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

[bugfix] broken hygiene of cond expression

Browse Source
This commit is contained in:
Yuichi Nishiwaki
2014-07-13 22:51:22 +09:00
parent 53b82aa670
commit fda89b1604
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
piclib/built-in.scm
+3 -3
View File
@@ -84,9 +84,9 @@
(if (if (>= (length (car clauses)) 2)
(compare (r '=>) (cadar clauses))
#f)
(list (r 'let) (list (list 'x (caar clauses)))
(list (r 'if) 'x
(list (caddar clauses) 'x)
(list (r 'let) (list (list (r 'x) (caar clauses)))
(list (r 'if) (r 'x)
(list (caddar clauses) (r 'x))
(cons (r 'cond) (cdr clauses))))
(list (r 'if) (caar clauses)
(cons (r 'begin) (cdar clauses))