From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 29 Aug 1988 23:14:17 +0000 (+0000)
Subject: Must not pop return address unless it has been pushed.
X-Git-Tag: 20090517-FFI~12568
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9f3596079c36cda8476a76b82ef8a78cddd9ea6c;p=mit-scheme.git

Must not pop return address unless it has been pushed.
---

diff --git a/v7/src/compiler/rtlgen/rgretn.scm b/v7/src/compiler/rtlgen/rgretn.scm
index 59d292f9c..98da40aad 100644
--- a/v7/src/compiler/rtlgen/rgretn.scm
+++ b/v7/src/compiler/rtlgen/rgretn.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgretn.scm,v 4.6 1988/08/18 06:50:25 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgretn.scm,v 4.7 1988/08/29 23:14:17 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -75,7 +75,11 @@ MIT in each case. |#
 	 (if not-on-stack?
 	     (return-operator/pop-frames block operator offset 0)
 	     (scfg*scfg->scfg!
-	      (return-operator/pop-frames block operator offset 1)
+	      (return-operator/pop-frames
+	       block
+	       operator
+	       offset
+	       (if (continuation/always-known-operator? continuation) 0 1))
 	      (generate/continuation-entry/pop-extra continuation)))
 	 operand
 	 offset