From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 22 Nov 1994 23:33:29 +0000 (+0000)
Subject: Fix parenthesis problem.
X-Git-Tag: 20090517-FFI~6982
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=012b34827172aab713606c4db1b98698a4f2f9a4;p=mit-scheme.git

Fix parenthesis problem.
---

diff --git a/v8/src/compiler/midend/rtlgen.scm b/v8/src/compiler/midend/rtlgen.scm
index 35a29ba66..ad012dfed 100644
--- a/v8/src/compiler/midend/rtlgen.scm
+++ b/v8/src/compiler/midend/rtlgen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rtlgen.scm,v 1.2 1994/11/22 21:32:52 adams Exp $
+$Id: rtlgen.scm,v 1.3 1994/11/22 23:33:29 gjr Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -2186,12 +2186,12 @@ MIT in each case. |#
     (internal-error "Unexpected CALL continuation [saved!]" cont))
   (cond
    ((LOOKUP/? cont)
-    (if state
+    (if (not state)
+	(rtlgen/stack-push!/1 (rtlgen/boxed-continuation state))
 	(let ((temp-reg (rtlgen/new-reg)))
 	  (rtlgen/assign! temp-reg (rtlgen/boxed-continuation state))
 	  (rtlgen/bop-stack-pointer! (rtlgen/state/stmt/size state))
-	  (rtlgen/stack-push!/1 temp-reg)
-	(rtlgen/stack-push!/1 (rtlgen/boxed-continuation state))))
+	  (rtlgen/stack-push!/1 temp-reg)))
     false)
    ((CALL/%stack-closure-ref? cont)
     ;; This assumes that (a) it is the continuation variable and (b) it is at