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

[bugfix] broken hygiene of cond expression

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
piclib/built-in.scm
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))