From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 16 Dec 1992 12:24:01 +0000 (+0000)
Subject: Fix bug.  Dependents are not nodes, but targets.
X-Git-Tag: 20090517-FFI~8648
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3c830005b2fb530dce0b93a180246df771a76813;p=mit-scheme.git

Fix bug.  Dependents are not nodes, but targets.
---

diff --git a/v7/src/compiler/fgopt/reuse.scm b/v7/src/compiler/fgopt/reuse.scm
index 11d9e4d59..54da96ead 100644
--- a/v7/src/compiler/fgopt/reuse.scm
+++ b/v7/src/compiler/fgopt/reuse.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fgopt/reuse.scm,v 1.6 1990/08/27 13:23:45 jinx Rel $
+$Id: reuse.scm,v 1.7 1992/12/16 12:24:01 gjr Exp $
 
-Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
+Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -151,7 +151,7 @@ MIT in each case. |#
 		(let ((dependents (node-original-dependents node)))
 		  (or (null? dependents)
 		      (and (null? (cdr dependents))
-			   (eq? (node-target (car dependents))
+			   (eq? (car dependents)
 				(node-target node))))))))
 	(lambda (terminal-nodes non-terminal-nodes)
 	  (values terminal-nodes non-terminal-nodes extra-subproblems))))))