Eliminate redundant code in cons-stream*.

diff --git a/src/runtime/mit-macros.scm b/src/runtime/mit-macros.scm
index 95582ccb0d0402ecaec1d1180c0f02b29e69f487..0e2d7211130bb4d7c0df9476b9ec8d676e16f75b 100644 (file)
--- a/src/runtime/mit-macros.scm
+++ b/src/runtime/mit-macros.scm
@@ -660,9 +660,7 @@ USA.
    (delay
      (scons-rule `((+ any))
        (lambda (exprs)
-        (if (pair? (cdr exprs))
-            (car exprs)
-            (reduce-right scons-stream unspecific exprs)))))))
+        (reduce-right scons-stream unspecific exprs))))))
 
 (define (scons-stream expr1 expr2)
   (scons-call (scons-close 'cons)