Add procedures to modify the version and modification components of a

system.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 3e90955df433fb3634a8f68aa91fa6fcd69a1cb0..e07499e2e0e6876532bd63cfb25a70c77489cef7 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.8 1988/06/22 21:34:22 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.9 1988/06/30 22:22:42 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -1512,6 +1512,8 @@ MIT in each case. |#
          for-each-system!
          load-system!
          make-system
+         set-system/modification!
+         set-system/version!
          system/identification-string
          system/modification
          system/name

diff --git a/v7/src/runtime/system.scm b/v7/src/runtime/system.scm
index 75e81d3bba02b3474bfb507f38ba95618e39dc06..71edd83da755925c8c5564ed6c317b73c5bb381a 100644 (file)
--- a/v7/src/runtime/system.scm
+++ b/v7/src/runtime/system.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/system.scm,v 14.2 1988/06/16 06:39:36 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/system.scm,v 14.3 1988/06/30 22:22:23 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -46,8 +46,8 @@ MIT in each case. |#
                    (name version modification files-lists))
                   (conc-name system/))
   (name false read-only true)
-  (version false read-only true)
-  (modification false read-only true)
+  (version false)
+  (modification false)
   (files-lists false read-only true)
   (files false))
 

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 4d8a7b98c91fc93f02032eb62fa56dd60e864eec..76247b0861c6a243d54761656ec7aa5c73c15123 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.8 1988/06/22 21:34:22 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.9 1988/06/30 22:22:42 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -1512,6 +1512,8 @@ MIT in each case. |#
          for-each-system!
          load-system!
          make-system
+         set-system/modification!
+         set-system/version!
          system/identification-string
          system/modification
          system/name