From 27988b2df131b06ca286842360fc9d6ee0a151c8 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 3 Aug 1989 23:08:55 +0000
Subject: [PATCH] Add new operations:

    environment-assign!
    environment-assignable?
    make-null-interpreter-environment
    extended-scode-eval
    system-library-directory-pathname
---
 v7/src/runtime/runtime.pkg | 16 ++++++++++++++--
 v8/src/runtime/runtime.pkg | 16 ++++++++++++++--
 2 files changed, 28 insertions(+), 4 deletions(-)

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 029560f02..a293a3f0e 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.42 1989/07/13 18:38:16 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.43 1989/08/03 23:08:55 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -417,6 +417,8 @@ MIT in each case. |#
   (parent ())
   (export ()
 	  environment-arguments
+	  environment-assign!
+	  environment-assignable?
 	  environment-bindings
 	  environment-bound-names
 	  environment-bound?
@@ -428,6 +430,7 @@ MIT in each case. |#
 	  environment?
 	  ic-environment?
 	  interpreter-environment?
+	  make-null-interpreter-environment
 	  system-global-environment?)
   (export (runtime advice)
 	  ic-environment/arguments
@@ -506,6 +509,13 @@ MIT in each case. |#
 	  remove-event-receiver!)
   (initialization (initialize-package!)))
 
+(define-package (runtime extended-scode-eval)
+  (files "xeval")
+  (parent ())
+  (export ()
+	  extended-scode-eval)
+  (initialization (initialize-package!)))
+
 (define-package (runtime file-input)
   (files "filein")
   (parent ())
@@ -1110,7 +1120,9 @@ MIT in each case. |#
 	  pathname-new-version	  pathname-type
 	  pathname-version
 	  pathname?
-	  string->pathname)  (export (runtime pathname-parser)
+	  string->pathname
+	  system-library-directory-pathname)
+  (export (runtime pathname-parser)
 	  simplify-directory))
 
 (define-package (runtime pathname-parser)
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 1ed6741cd..b40674910 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.42 1989/07/13 18:38:16 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.43 1989/08/03 23:08:55 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -417,6 +417,8 @@ MIT in each case. |#
   (parent ())
   (export ()
 	  environment-arguments
+	  environment-assign!
+	  environment-assignable?
 	  environment-bindings
 	  environment-bound-names
 	  environment-bound?
@@ -428,6 +430,7 @@ MIT in each case. |#
 	  environment?
 	  ic-environment?
 	  interpreter-environment?
+	  make-null-interpreter-environment
 	  system-global-environment?)
   (export (runtime advice)
 	  ic-environment/arguments
@@ -506,6 +509,13 @@ MIT in each case. |#
 	  remove-event-receiver!)
   (initialization (initialize-package!)))
 
+(define-package (runtime extended-scode-eval)
+  (files "xeval")
+  (parent ())
+  (export ()
+	  extended-scode-eval)
+  (initialization (initialize-package!)))
+
 (define-package (runtime file-input)
   (files "filein")
   (parent ())
@@ -1110,7 +1120,9 @@ MIT in each case. |#
 	  pathname-new-version	  pathname-type
 	  pathname-version
 	  pathname?
-	  string->pathname)  (export (runtime pathname-parser)
+	  string->pathname
+	  system-library-directory-pathname)
+  (export (runtime pathname-parser)
 	  simplify-directory))
 
 (define-package (runtime pathname-parser)
-- 
2.25.1