From 15e7a7d493372dedab6b693e9b6a7bfc7b565a0e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 2 Dec 1992 19:44:25 +0000
Subject: [PATCH] Add support for RECORD objects.

---
 v7/src/runtime/record.scm  | 8 +++++++-
 v7/src/runtime/runtime.pkg | 6 +++++-
 v7/src/runtime/version.scm | 4 ++--
 v8/src/runtime/runtime.pkg | 6 +++++-
 4 files changed, 19 insertions(+), 5 deletions(-)

diff --git a/v7/src/runtime/record.scm b/v7/src/runtime/record.scm
index 2edaf9dcc..55fbf847c 100644
--- a/v7/src/runtime/record.scm
+++ b/v7/src/runtime/record.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: record.scm,v 1.13 1992/11/29 14:20:27 gjr Exp $
+$Id: record.scm,v 1.14 1992/12/02 19:43:32 cph Exp $
 
 Copyright (c) 1989-1992 Massachusetts Institute of Technology
 
@@ -40,6 +40,12 @@ MIT in each case. |#
 
 (declare (usual-integrations))
 
+(define-primitives
+  (%record -1)
+  (%record-length 1)
+  (%record-ref 2)
+  (%record-set! 3))
+
 (define (initialize-package!)
   (set! record-type-marker
 	((ucode-primitive string->symbol)
diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index f6c25a1e9..8fb4665c3 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.163 1992/11/12 03:25:33 gjr Exp $
+$Id: runtime.pkg,v 14.164 1992/12/02 19:44:11 cph Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -1689,6 +1689,10 @@ MIT in each case. |#
   (files "record")
   (parent ())
   (export ()
+	  %record
+	  %record-length
+	  %record-ref
+	  %record-set!
 	  make-record-type
 	  record-accessor
 	  record-constructor
diff --git a/v7/src/runtime/version.scm b/v7/src/runtime/version.scm
index 58dfe7a3a..26ac9ce92 100644
--- a/v7/src/runtime/version.scm
+++ b/v7/src/runtime/version.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: version.scm,v 14.157 1992/11/03 22:43:12 jinx Exp $
+$Id: version.scm,v 14.158 1992/12/02 19:44:25 cph Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -45,7 +45,7 @@ MIT in each case. |#
 		     '()))
   (add-system! microcode-system)
   (add-event-receiver! event:after-restore snarf-microcode-version!)
-  (add-identification! "Runtime" 14 157))
+  (add-identification! "Runtime" 14 158))
 
 (define microcode-system)
 
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index f6c25a1e9..8fb4665c3 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.163 1992/11/12 03:25:33 gjr Exp $
+$Id: runtime.pkg,v 14.164 1992/12/02 19:44:11 cph Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -1689,6 +1689,10 @@ MIT in each case. |#
   (files "record")
   (parent ())
   (export ()
+	  %record
+	  %record-length
+	  %record-ref
+	  %record-set!
 	  make-record-type
 	  record-accessor
 	  record-constructor
-- 
2.25.1