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) (if (if (>= (length (car clauses)) 2)
(compare (r '=>) (cadar clauses)) (compare (r '=>) (cadar clauses))
#f) #f)
(list (r 'let) (list (list 'x (caar clauses))) (list (r 'let) (list (list (r 'x) (caar clauses)))
(list (r 'if) 'x (list (r 'if) (r 'x)
(list (caddar clauses) 'x) (list (caddar clauses) (r 'x))
(cons (r 'cond) (cdr clauses)))) (cons (r 'cond) (cdr clauses))))
(list (r 'if) (caar clauses) (list (r 'if) (caar clauses)
(cons (r 'begin) (cdar clauses)) (cons (r 'begin) (cdar clauses))