For "operator" microcode error handlers, the irritants were not being

passed as a list, resulting in a different error being signalled
whenever such an error occurred.

diff --git a/v7/src/runtime/uerror.scm b/v7/src/runtime/uerror.scm
index e526e3bcb587650eada42c47ad9bfea6cfd27e32..b0deb974d970e0d80832ffa90bcfaf793073370b 100644 (file)
--- 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.2 1988/06/13 11:58:37 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uerror.scm,v 14.3 1988/07/22 22:53:14 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -421,7 +421,7 @@ MIT in each case. |#
       (define-error-handler error-type 'INTERNAL-APPLY true
        (lambda (condition-type frame)
          (make-error-condition condition-type
-                               (internal-apply-frame/operator frame)
+                               (list (internal-apply-frame/operator frame))
                                repl-environment))))
 
     (define (define-operand-handler error-type irritant #!optional filter)

diff --git a/v7/src/runtime/version.scm b/v7/src/runtime/version.scm
index d7268b27ec0c7e451aa2b96a4d856e8c7c9e8c4e..265edf7678e33ada26dcada7c45b69123cf425a8 100644 (file)
--- a/v7/src/runtime/version.scm
+++ b/v7/src/runtime/version.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.14 1988/07/16 18:54:56 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.15 1988/07/22 22:54:04 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -45,7 +45,7 @@ MIT in each case. |#
                     '()))
   (add-system! microcode-system)
   (add-event-receiver! event:after-restore snarf-microcode-version!)
-  (add-identification! "Runtime" 14 14))
+  (add-identification! "Runtime" 14 15))
 
 (define microcode-system)