From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 30 Jun 1987 00:21:20 +0000 (+0000)
Subject: When walking a pnode that requires the copying of the state, that
X-Git-Tag: 20090517-FFI~13316
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b479359b3790e4e266dd9cf15fec900465536f6e;p=mit-scheme.git

When walking a pnode that requires the copying of the state, that
state was being held onto longer than necessary.
---

diff --git a/v7/src/compiler/rtlopt/rcse1.scm b/v7/src/compiler/rtlopt/rcse1.scm
index b19daed07..e02cbe25b 100644
--- a/v7/src/compiler/rtlopt/rcse1.scm
+++ b/v7/src/compiler/rtlopt/rcse1.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rcse1.scm,v 1.109 1987/06/09 19:56:30 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rcse1.scm,v 1.110 1987/06/30 00:21:20 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -77,8 +77,8 @@ MIT in each case. |#
 		    (else
 		     (let ((state (state:get)))
 		       (walk-rnode consequent)
-		       (state:set! state)
-		       (walk-rnode alternative))))
+		       (state:set! state))
+		     (walk-rnode alternative)))
 	      (walk-next consequent))
 	  (if (walk-next? alternative)
 	      (walk-next alternative))))))