Show only current year in start-up copyright.

diff --git a/src/runtime/savres.scm b/src/runtime/savres.scm
index 5f9d1173bcb4f919277897826249956e3720c20f..6359dd3e3c016aa2d3fcecb2299c3970c3ce998e 100644 (file)
--- a/src/runtime/savres.scm
+++ b/src/runtime/savres.scm
@@ -122,9 +122,9 @@ USA.
         (if (default-object? port)
             (current-output-port)
             (guarantee-output-port port 'IDENTIFY-WORLD))))
-    (write-mit-scheme-copyright port)
+    (write-mit-scheme-copyright port #!default #!default #t)
     (newline port)
-    (write-mit-scheme-license port "" #t)
+    (write-mit-scheme-license port #!default #t)
     (newline port)
     (newline port)
     (if time-world-saved

diff --git a/src/runtime/version.scm b/src/runtime/version.scm
index d32e95962cf2891969aec4fd51fe4e071ae1c384..16b7150a53a403059d07774533b1cea10cdd277b 100644 (file)
--- a/src/runtime/version.scm
+++ b/src/runtime/version.scm
@@ -45,7 +45,7 @@ USA.
   (add-subsystem-identification! "Microcode"
                                 (get-microcode-version-numbers)))
 
-(define (write-mit-scheme-copyright #!optional port line-prefix cmark)
+(define (write-mit-scheme-copyright #!optional port line-prefix cmark short?)
   (let ((port
         (if (default-object? port)
             (current-output-port)
@@ -55,8 +55,10 @@ USA.
     (write-words (let ((years (map number->string copyright-years)))
                   `("Copyright"
                     ,cmark
-                    ,@(map (lambda (s) (string-append s ","))
-                           (except-last-pair years))
+                    ,@(if short?
+                          '()
+                          (map (lambda (s) (string-append s ","))
+                               (except-last-pair years)))
                     ,(last years)
                     "Massachusetts"
                     "Institute"