From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 30 Jul 1996 00:12:55 +0000 (+0000)
Subject: Added COMPILED-CODE-SUPPORT:NONRESTARTABLE-CONTINUATION.
X-Git-Tag: 20090517-FFI~5413
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=11546a05a82dd9b3e2e3ea187f9b1b5d4fbe861d;p=mit-scheme.git

Added COMPILED-CODE-SUPPORT:NONRESTARTABLE-CONTINUATION.
---

diff --git a/v8/src/runtime/coerce.scm b/v8/src/runtime/coerce.scm
index bcdb67df1..23310ee9b 100644
--- a/v8/src/runtime/coerce.scm
+++ b/v8/src/runtime/coerce.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: coerce.scm,v 1.5 1996/07/26 23:39:26 adams Exp $
+$Id: coerce.scm,v 1.6 1996/07/30 00:12:55 adams Exp $
 
 Copyright (c) 1996 Massachusetts Institute of Technology
 
@@ -191,8 +191,21 @@ MIT in each case. |#
 
 (declare (ignore-reference-traps (set arity-dispatcher-tag)))
 
+
+;;; Other procedures which the 8.0 compiler expects to be defined
+;;
+
+(define (compiled-code-support:nonrestartable-continuation result)
+  (error
+   "You attempted to return to a subproblem with a non-restartable error in"
+   (error-irritant/noise "compiled code, using the value: \n;  ")
+   result))
 
-;; This is done in make.scm: (define coerce-to-compiled-procedure)
+
+;; This is done in make.scm:
+;;
+;;   (define coerce-to-compiled-procedure)
+;;
 
 (define (initialize-package!)
   ;; The above code only works if compiled, so just use the primitive if
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 168894a5e..f11130b63 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.276 1996/07/26 14:58:55 adams Exp $
+$Id: runtime.pkg,v 14.277 1996/07/30 00:12:10 adams Exp $
 
 Copyright (c) 1988-96 Massachusetts Institute of Technology
 
@@ -3314,5 +3314,6 @@ MIT in each case. |#
   (files "coerce")
   (parent ())
   (export ()
+	  compiled-code-support:nonrestartable-continuation
 	  ;;coerce-to-compiled-procedure
 	  ))