From 012b34827172aab713606c4db1b98698a4f2f9a4 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 22 Nov 1994 23:33:29 +0000 Subject: [PATCH] Fix parenthesis problem. --- v8/src/compiler/midend/rtlgen.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 -- 2.25.1