From 388c07be8422f7abaa12549bfae3614e88a37abd Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 15 Nov 2009 00:27:08 -0800 Subject: [PATCH] Show only current year in start-up copyright. --- src/runtime/savres.scm | 4 ++-- src/runtime/version.scm | 8 +++++--- 2 files changed, 7 insertions(+), 5 deletions(-) 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" -- 2.25.1