From 78de2d139402f4f2449cc3ee13b1cc7dd280ac5a Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Fri, 3 Apr 2009 23:53:18 +0900 Subject: [PATCH] fixing bug in cond with => patterns --- init.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/init.scm b/init.scm index 16e8a236..6773cb03 100644 --- a/init.scm +++ b/init.scm @@ -157,7 +157,8 @@ (list (rename 'if) (rename 'tmp) (if (null? (cdr cl)) (rename 'tmp) - (list (caddr cl) (rename 'tmp))))) + (list (caddr cl) (rename 'tmp))) + (cons (rename 'cond) (cddr expr)))) (list (rename 'if) (car cl) (cons (rename 'begin) (cdr cl))