From aa89a9e328008029103953891de4ae5f9509c30c Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Wed, 2 Feb 1994 04:10:30 +0000 Subject: [PATCH] Fixed #F/() confusion. --- v7/src/compiler/fgopt/sideff.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)))))) -- 2.25.1