From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 2 Feb 1994 04:10:30 +0000 (+0000)
Subject: Fixed #F/() confusion.
X-Git-Tag: 20090517-FFI~7292
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=aa89a9e328008029103953891de4ae5f9509c30c;p=mit-scheme.git

Fixed #F/() confusion.
---

diff --git a/v7/src/compiler/fgopt/sideff.scm b/v7/src/compiler/fgopt/sideff.scm
index 5cfd9e4cd..2e25247e0 100644
--- 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))))))