From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Fri, 25 Dec 2009 21:06:31 +0000 (-0800)
Subject: Minor tweak to use disjunction in conditional expansion.
X-Git-Tag: 20100708-Gtk~179
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=929d6d1bb9facf76c3ffa42ed027a825870c6862;p=mit-scheme.git

Minor tweak to use disjunction in conditional expansion.
---

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))