From dfe8328762af5919b58eb9e1fd69b573b2086697 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 5 Oct 1993 07:16:21 +0000
Subject: [PATCH] Add red/black tree datatype option.

---
 v7/src/runtime/option.scm  | 10 +++++-----
 v7/src/runtime/runtime.pkg | 21 ++++++++++++++++++++-
 v8/src/runtime/runtime.pkg | 21 ++++++++++++++++++++-
 3 files changed, 45 insertions(+), 7 deletions(-)

diff --git a/v7/src/runtime/option.scm b/v7/src/runtime/option.scm
index dbc1d73c0..ee2a8864e 100644
--- a/v7/src/runtime/option.scm
+++ b/v7/src/runtime/option.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: option.scm,v 14.23 1993/09/01 05:32:30 ziggy Exp $
+$Id: option.scm,v 14.24 1993/10/05 07:16:12 cph Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -79,9 +79,9 @@ MIT in each case. |#
     (FORMAT ((RUNTIME FORMAT) (INITIALIZE-PACKAGE!) "format"))
     (HASH-TABLE ((RUNTIME HASH-TABLE) (INITIALIZE-PACKAGE!) "hashtb"))
     (KRYPT ((RUNTIME KRYPT) #F "krypt"))
-    (SUBPROCESS ((RUNTIME SUBPROCESS) (INITIALIZE-PACKAGE!) "process"))
-    (PC-SAMPLE (() #F "../pcsample/make"))))
+    (PC-SAMPLE (() #F "../pcsample/make"))
+    (RB-TREE ((runtime rb-tree) #F "rbtree"))
+    (SUBPROCESS ((RUNTIME SUBPROCESS) (INITIALIZE-PACKAGE!) "process"))))
 
 (define loaded-options
-  '())
-
+  '())
\ No newline at end of file
diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 9e0cdcaab..26cca6e1a 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.195 1993/09/30 17:09:53 adams Exp $
+$Id: runtime.pkg,v 14.196 1993/10/05 07:16:21 cph Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -2533,3 +2533,22 @@ MIT in each case. |#
   (export (runtime primitive-io)
 	  block-on-input-descriptor)
   (initialization (initialize-package!)))
+
+(define-package (runtime rb-tree)
+  (file-case options
+    ((load) "rbtree")
+    (else))
+  (parent ())
+  (export ()
+	  alist->rb-tree
+	  rb-tree->alist
+	  rb-tree/copy
+	  rb-tree/delete!
+	  rb-tree/empty?
+	  rb-tree/equal?
+	  rb-tree/height
+	  rb-tree/insert!
+	  rb-tree/lookup
+	  rb-tree/size
+	  rb-tree?
+	  make-rb-tree))
\ No newline at end of file
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 9e0cdcaab..26cca6e1a 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.195 1993/09/30 17:09:53 adams Exp $
+$Id: runtime.pkg,v 14.196 1993/10/05 07:16:21 cph Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -2533,3 +2533,22 @@ MIT in each case. |#
   (export (runtime primitive-io)
 	  block-on-input-descriptor)
   (initialization (initialize-package!)))
+
+(define-package (runtime rb-tree)
+  (file-case options
+    ((load) "rbtree")
+    (else))
+  (parent ())
+  (export ()
+	  alist->rb-tree
+	  rb-tree->alist
+	  rb-tree/copy
+	  rb-tree/delete!
+	  rb-tree/empty?
+	  rb-tree/equal?
+	  rb-tree/height
+	  rb-tree/insert!
+	  rb-tree/lookup
+	  rb-tree/size
+	  rb-tree?
+	  make-rb-tree))
\ No newline at end of file
-- 
2.25.1