Added %COMPILED-CODE-SUPPORT:SIGNAL-ERROR-IN-PRIMITIVE.

diff --git a/v8/src/runtime/coerce.scm b/v8/src/runtime/coerce.scm
index 23310ee9bef7087a690a6585b98434f03b80d319..adbfb0787f42a07eb76f60ea642c1b62be3e0cd7 100644 (file)
--- a/v8/src/runtime/coerce.scm
+++ b/v8/src/runtime/coerce.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: coerce.scm,v 1.6 1996/07/30 00:12:55 adams Exp $
+$Id: coerce.scm,v 1.7 1996/07/30 16:26:51 adams Exp $
 
 Copyright (c) 1996 Massachusetts Institute of Technology
 
@@ -195,14 +195,16 @@ MIT in each case. |#
 ;;; Other procedures which the 8.0 compiler expects to be defined
 ;;
 
-(define (compiled-code-support:nonrestartable-continuation result)
+(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))
 
+(define (%compiled-code-support:signal-error-in-primitive prim args)
+  (apply prim args))
 \f
-;; This is done in make.scm:
+;; This is defined in make.scm:
 ;;
 ;;   (define coerce-to-compiled-procedure)
 ;;

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index f11130b6374f412885d26e99ec5f23c101632de6..ee78a423e957a17750890096910d105263170e4b 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.277 1996/07/30 00:12:10 adams Exp $
+$Id: runtime.pkg,v 14.278 1996/07/30 16:26:39 adams Exp $
 
 Copyright (c) 1988-96 Massachusetts Institute of Technology
 
@@ -3314,6 +3314,7 @@ MIT in each case. |#
   (files "coerce")
   (parent ())
   (export ()
-         compiled-code-support:nonrestartable-continuation
+         %compiled-code-support:nonrestartable-continuation
+         %compiled-code-support:signal-error-in-primitive
          ;;coerce-to-compiled-procedure
          ))