From: Stephen Adams Date: Tue, 30 Jul 1996 16:26:51 +0000 (+0000) Subject: Added %COMPILED-CODE-SUPPORT:SIGNAL-ERROR-IN-PRIMITIVE. X-Git-Tag: 20090517-FFI~5412 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9d0c32c0603a16d273959f1a36d9bb5d2a4fb8a8;p=mit-scheme.git Added %COMPILED-CODE-SUPPORT:SIGNAL-ERROR-IN-PRIMITIVE. --- 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 ))