From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 13 May 1988 03:01:07 +0000 (+0000)
Subject: Add aliases for `object-new-type' and `primitive-object-new-type'.
X-Git-Tag: 20090517-FFI~12758
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=817614bcfbd3b8d35483ae71c038131c4454b130;p=mit-scheme.git

Add aliases for `object-new-type' and `primitive-object-new-type'.
---

diff --git a/v7/src/microcode/prename.h b/v7/src/microcode/prename.h
index e1e46b8d0..24bd4555a 100644
--- a/v7/src/microcode/prename.h
+++ b/v7/src/microcode/prename.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prename.h,v 1.1 1988/03/24 07:04:30 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prename.h,v 1.2 1988/05/13 03:01:07 cph Rel $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -45,7 +45,9 @@ static struct primitive_alias aliases [] =
     { "PRIMITIVE-SET-TYPE", "OBJECT-SET-TYPE" },
     { "&MAKE-OBJECT", "PRIMITIVE-OBJECT-SET-TYPE" },
     { "SYSTEM-MEMORY-REF", "PRIMITIVE-OBJECT-REF" },
-    { "SYSTEM-MEMORY-SET!", "PRIMITIVE-OBJECT-SET!" }
+    { "SYSTEM-MEMORY-SET!", "PRIMITIVE-OBJECT-SET!" },
+    { "OBJECT-NEW-TYPE", "OBJECT-SET-TYPE" },
+    { "PRIMITIVE-OBJECT-NEW-TYPE", "PRIMITIVE-OBJECT-SET-TYPE" }
   };
 
-#define N_ALIASES 10
+#define N_ALIASES 12