From bb178c82e9f2ddf74d65f83a9fae47a988339a54 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 2 Dec 1992 19:29:50 +0000 Subject: [PATCH] Add support for TC_RECORD data type. --- v7/src/microcode/vector.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/microcode/vector.c b/v7/src/microcode/vector.c index 674ee52a1..6a922a84a 100644 --- 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) -- 2.25.1