From 51af94daf01d7069723a3b82791fcd53514afd4a Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Wed, 3 Oct 1990 21:53:53 +0000
Subject: [PATCH] Update handler for COMPILED-CODE-ERROR.

---
 v7/src/runtime/uerror.scm | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/uerror.scm b/v7/src/runtime/uerror.scm
index c2c6763c1..342c88596 100644
--- a/v7/src/runtime/uerror.scm
+++ b/v7/src/runtime/uerror.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uerror.scm,v 14.15 1990/07/30 04:01:23 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uerror.scm,v 14.16 1990/10/03 21:53:53 jinx Rel $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -299,7 +299,9 @@ MIT in each case. |#
        (BROKEN-CVARIABLE ,(make-internal-type "Broken compiled variable"))
        (BROKEN-VARIABLE-CACHE
 	,(make-internal-type "Broken variable value cell"))
-       (COMPILED-CODE-ERROR ,(make-internal-type "Compiled code error"))
+       (COMPILED-CODE-ERROR
+	,(make-condition-type (list error-type:illegal-argument)
+			      "Compiled code error"))
        (EXECUTE-MANIFEST-VECTOR
 	,(make-internal-type "Attempt to execute manifest vector"))
        (EXTERNAL-RETURN
@@ -617,6 +619,17 @@ MIT in each case. |#
 	   (ucode-primitive set-file-modes! 2))
 	  file-error)))
 
+    (define-error-handler 'COMPILED-CODE-ERROR
+      'COMPILER-ERROR-RESTART
+      (lambda (frame)
+	(primitive-procedure? (stack-frame/ref frame 2)))
+      (lambda (condition-type frame)
+	(make-error-condition
+	 condition-type
+	 (list (error-irritant/noise ": inappropriate arguments to open-coded")
+	       (stack-frame/ref frame 2))
+	 repl-environment)))      
+
     (define-total-error-handler 'WRITE-INTO-PURE-SPACE
       write-into-pure-space-error)
 
-- 
2.25.1