From 929d6d1bb9facf76c3ffa42ed027a825870c6862 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Fri, 25 Dec 2009 13:06:31 -0800 Subject: [PATCH] Minor tweak to use disjunction in conditional expansion. --- src/runtime/mit-macros.scm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/runtime/mit-macros.scm b/src/runtime/mit-macros.scm index 16bea007e..2876cb68f 100644 --- a/src/runtime/mit-macros.scm +++ b/src/runtime/mit-macros.scm @@ -341,9 +341,7 @@ USA. (syntax-error "Ill-formed ELSE clause:" clause)) `(,(rename 'BEGIN) ,@(cdr clause))) ((not (pair? (cdr clause))) - (let ((r-temp (rename 'TEMP))) - `(,(rename 'LET) ((,r-temp ,(car clause))) - (,(rename 'IF) ,r-temp ,r-temp ,alternative)))) + `(,(rename 'OR) ,(car clause) ,alternative)) ((and (identifier? (cadr clause)) (compare (rename '=>) (cadr clause))) (if (not (and (pair? (cddr clause)) -- 2.25.1