Minor tweak to use disjunction in conditional expansion.

diff --git a/src/runtime/mit-macros.scm b/src/runtime/mit-macros.scm
index 16bea007e045bad0a14441d9dbaf563199116608..2876cb68f2d27d7187db699ce2a8a3534ba9fb2b 100644 (file)
--- 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))