From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 15 Nov 2009 08:27:08 +0000 (-0800)
Subject: Show only current year in start-up copyright.
X-Git-Tag: 20100708-Gtk~240
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=388c07be8422f7abaa12549bfae3614e88a37abd;p=mit-scheme.git

Show only current year in start-up copyright.
---

diff --git a/src/runtime/savres.scm b/src/runtime/savres.scm
index 5f9d1173b..6359dd3e3 100644
--- 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 d32e95962..16b7150a5 100644
--- 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"