Add support for TC_RECORD data type.

diff --git a/v7/src/microcode/vector.c b/v7/src/microcode/vector.c
index 674ee52a136a72505dc2e4a98141d21cd8282e8c..6a922a84a038fd93287a70bcf8061d9375e6bfbf 100644 (file)
--- a/v7/src/microcode/vector.c
+++ b/v7/src/microcode/vector.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: vector.c,v 9.35 1992/12/02 18:34:46 cph Exp $
+$Id: vector.c,v 9.36 1992/12/02 19:29:50 cph Exp $
 
 Copyright (c) 1987-92 Massachusetts Institute of Technology
 
@@ -160,7 +160,7 @@ DEFINE_PRIMITIVE ("VECTOR-LENGTH", Prim_vector_length, 1, 1, 0)
      VECTOR_LENGTH_PRIMITIVE (ARG_VECTOR)
 
 DEFINE_PRIMITIVE ("%RECORD-LENGTH", Prim_record_length, 1, 1, 0)
-     RECORD_LENGTH_PRIMITIVE (ARG_RECORD)
+     VECTOR_LENGTH_PRIMITIVE (ARG_RECORD)
 
 DEFINE_PRIMITIVE ("SYSTEM-VECTOR-SIZE", Prim_sys_vec_size, 1, 1, 0)
      VECTOR_LENGTH_PRIMITIVE (ARG_GC_VECTOR)
@@ -178,7 +178,7 @@ DEFINE_PRIMITIVE ("VECTOR-REF", Prim_vector_ref, 2, 2, 0)
      VECTOR_REF_PRIMITIVE (ARG_VECTOR)
 
 DEFINE_PRIMITIVE ("%RECORD-REF", Prim_record_ref, 2, 2, 0)
-     RECORD_REF_PRIMITIVE (ARG_RECORD)
+     VECTOR_REF_PRIMITIVE (ARG_RECORD)
 
 DEFINE_PRIMITIVE ("SYSTEM-VECTOR-REF", Prim_sys_vector_ref, 2, 2, 0)
      VECTOR_REF_PRIMITIVE (ARG_GC_VECTOR)
@@ -200,7 +200,7 @@ DEFINE_PRIMITIVE ("VECTOR-SET!", Prim_vector_set, 3, 3, 0)
      VECTOR_SET_PRIMITIVE (ARG_VECTOR)
 
 DEFINE_PRIMITIVE ("%RECORD-SET!", Prim_record_set, 3, 3, 0)
-     RECORD_SET_PRIMITIVE (ARG_RECORD)
+     VECTOR_SET_PRIMITIVE (ARG_RECORD)
 
 DEFINE_PRIMITIVE ("SYSTEM-VECTOR-SET!", Prim_sys_vec_set, 3, 3, 0)
      VECTOR_SET_PRIMITIVE (ARG_GC_VECTOR)