Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-09 22:17:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing bug in cond with => patterns

Browse source
This commit is contained in:
Alex Shinn 2009-04-03 23:53:18 +09:00
parent ca9e391ee3
commit 78de2d1394
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
init.scm
View file

@ -157,7 +157,8 @@
(list (rename 'if) (rename 'tmp) (list (rename 'if) (rename 'tmp)
(if (null? (cdr cl)) (if (null? (cdr cl))
(rename 'tmp) (rename 'tmp)
(list (caddr cl) (rename 'tmp))))) (list (caddr cl) (rename 'tmp)))
(cons (rename 'cond) (cddr expr))))
(list (rename 'if) (list (rename 'if)
(car cl) (car cl)
(cons (rename 'begin) (cdr cl)) (cons (rename 'begin) (cdr cl))