Add new operations:

    environment-assign!
    environment-assignable?
    make-null-interpreter-environment
    extended-scode-eval
    system-library-directory-pathname

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 029560f025b38e5da0cfa2a17f5296db112c1a8c..a293a3f0ea5dbdf34cdea58da14b767af6c8502b 100644 (file)
--- 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 1ed6741cdfcfd8c358a8723cdbcd38b0530ed28a..b406749100bd587bce151e5472eb9087bcda78f0 100644 (file)
--- 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)