From 82ba3fe18e471c654724a96a0fa24729fc8fd256 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 25 Aug 2015 01:54:33 -0400 Subject: [PATCH] Rewrote (cond) to not use (begin) --- scheme/base.sld | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scheme/base.sld b/scheme/base.sld index 3a90f40d..2f5d1b6f 100644 --- a/scheme/base.sld +++ b/scheme/base.sld @@ -223,7 +223,7 @@ (if (compare (rename 'else) (car cl)) (if (pair? (cddr expr)) (error "non-final else in cond" expr) - (cons (rename 'begin) (cdr cl))) + (list (cons (rename 'lambda) (cons '() (cdr cl))))) (if (if (null? (cdr cl)) #t (compare (rename '=>) (cadr cl))) (list (list (rename 'lambda) (list (rename 'tmp)) (list (rename 'if) (rename 'tmp) @@ -234,7 +234,7 @@ (car cl)) (list (rename 'if) (car cl) - (cons (rename 'begin) (cdr cl)) + (list (cons (rename 'lambda) (cons '() (cdr cl)))) (cons (rename 'cond) (cddr expr)))))) (cadr expr)))))) (define-syntax case