From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 22 Feb 1991 21:03:07 +0000 (+0000)
Subject: Fix typo in error name.  This would have been caught by type-checking
X-Git-Tag: 20090517-FFI~10915
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ed10f66192fb0ff0ce3d9e04d022f8d27f82ffbf;p=mit-scheme.git

Fix typo in error name.  This would have been caught by type-checking
in compiled code.
---

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