From ed10f66192fb0ff0ce3d9e04d022f8d27f82ffbf Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 22 Feb 1991 21:03:07 +0000
Subject: [PATCH] Fix typo in error name.  This would have been caught by
 type-checking in compiled code.

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

diff --git a/v7/src/runtime/uerror.scm b/v7/src/runtime/uerror.scm
index dde89cf80..967c8dfc0 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.18 1991/02/15 18:07:21 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uerror.scm,v 14.19 1991/02/22 21:03:07 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -543,7 +543,7 @@ MIT in each case. |#
       (write-operator (access-condition condition 'OPERATOR) port)
       (write-string " is not implemented for this operating system." port))))
 
-(define-primitive-error 'UNDEFINED-PRIMITIVE
+(define-primitive-error 'UNDEFINED-PRIMITIVE-OPERATION
   condition-type:unimplemented-primitive-for-os)
 
 (set! condition-type:compiled-code-error
-- 
2.25.1