Add red/black tree datatype option.

diff --git a/v7/src/runtime/option.scm b/v7/src/runtime/option.scm
index dbc1d73c0a67a7f0f0e2b0f994a9d9d333dcbabf..ee2a8864e2650e7ae3db748ac5f342834a2c191d 100644 (file)
--- 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 9e0cdcaabe8e39d27efb7f690262c9acc7cd578b..26cca6e1ad1adbb197a092771b9f1bbd6cd94a3a 100644 (file)
--- 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 9e0cdcaabe8e39d27efb7f690262c9acc7cd578b..26cca6e1ad1adbb197a092771b9f1bbd6cd94a3a 100644 (file)
--- 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