Added COMPILED-CODE-SUPPORT:NONRESTARTABLE-CONTINUATION.

diff --git a/v8/src/runtime/coerce.scm b/v8/src/runtime/coerce.scm
index bcdb67df13789341dfb8edb9cc4c5d88cf1affed..23310ee9bef7087a690a6585b98434f03b80d319 100644 (file)
--- 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)))
 
+\f
+;;; 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)
+\f
+;; 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 168894a5e1601c0b99d88e43bb0a813ec377fed2..f11130b6374f412885d26e99ec5f23c101632de6 100644 (file)
--- 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
          ))