From 9d0c32c0603a16d273959f1a36d9bb5d2a4fb8a8 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Tue, 30 Jul 1996 16:26:51 +0000 Subject: [PATCH] Added %COMPILED-CODE-SUPPORT:SIGNAL-ERROR-IN-PRIMITIVE. --- v8/src/runtime/coerce.scm | 8 +++++--- v8/src/runtime/runtime.pkg | 5 +++-- 2 files changed, 8 insertions(+), 5 deletions(-) diff --git a/v8/src/runtime/coerce.scm b/v8/src/runtime/coerce.scm index 23310ee9b..adbfb0787 100644 --- 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)) -;; 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 f11130b63..ee78a423e 100644 --- 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 )) -- 2.25.1