Add support for RECORD objects.

diff --git a/v7/src/runtime/record.scm b/v7/src/runtime/record.scm
index 2edaf9dccd77649d84aaf767ad66f945ab3fa39e..55fbf847cbbe0ed7f92f77464aed1df1947d46e3 100644 (file)
--- 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 f6c25a1e9e59124a47e59e0497201f0a18c440dc..8fb4665c36f45b096cc3a3030d41ef3d5ed9f7a7 100644 (file)
--- 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 58dfe7a3ada35dd4f8b7f0baacf4af17bcb88fc3..26ac9ce9253eadda960a96b316cd25c97464f0ef 100644 (file)
--- 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 f6c25a1e9e59124a47e59e0497201f0a18c440dc..8fb4665c36f45b096cc3a3030d41ef3d5ed9f7a7 100644 (file)
--- 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