From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 30 Jul 1996 16:54:58 +0000 (+0000)
Subject: Fixed arity and formatting problems.
X-Git-Tag: 20090517-FFI~5411
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6ef68e0587218349acba4b3a29a4bd6acdbb829b;p=mit-scheme.git

Fixed arity and formatting problems.
---

diff --git a/v8/src/runtime/coerce.scm b/v8/src/runtime/coerce.scm
index adbfb0787..f17889e16 100644
--- a/v8/src/runtime/coerce.scm
+++ b/v8/src/runtime/coerce.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: coerce.scm,v 1.7 1996/07/30 16:26:51 adams Exp $
+$Id: coerce.scm,v 1.8 1996/07/30 16:54:58 adams Exp $
 
 Copyright (c) 1996 Massachusetts Institute of Technology
 
@@ -197,11 +197,10 @@ MIT in each case. |#
 
 (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;  ")
+   "You attempted to return to a subproblem with a non-restartable error in compiled code, using the value: ")
    result))
 
-(define (%compiled-code-support:signal-error-in-primitive prim args)
+(define (%compiled-code-support:signal-error-in-primitive prim . args)
   (apply prim args))
 
 ;; This is defined in make.scm: