Fixed #F/() confusion.

diff --git a/v7/src/compiler/fgopt/sideff.scm b/v7/src/compiler/fgopt/sideff.scm
index 5cfd9e4cd91159af2223b996ae084947809af6eb..2e25247e0d116169a49f5bded8a5319340a4776c 100644 (file)
--- a/v7/src/compiler/fgopt/sideff.scm
+++ b/v7/src/compiler/fgopt/sideff.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fgopt/sideff.scm,v 1.7 1990/05/03 15:09:20 jinx Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fgopt/sideff.scm,v 1.8 1994/02/02 04:10:30 adams Exp $
 
 Copyright (c) 1988, 1990 Massachusetts Institute of Technology
 
@@ -310,7 +310,7 @@ MIT in each case. |#
     (if (not (null? returns))
        (let ((result (test-return (car returns))))
          (and result (compare result (cdr returns) lvalues)))
-       (and lvalues
+       (and (not (null? lvalues))
             (find (lvalue-applications (car lvalues))
                   (cdr lvalues))))))
 \f