From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Thu, 26 Nov 2015 05:17:37 +0000 (-0700)
Subject: dist/update-copyright.scm: Translate last-copyright-year.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=09cbfc0c28b3bf6772fd3c4c982d83e431974c57;p=mit-scheme.git

dist/update-copyright.scm: Translate last-copyright-year.
---

diff --git a/dist/update-copyright.scm b/dist/update-copyright.scm
index 9c32aa8d1..cb58204f5 100644
--- a/dist/update-copyright.scm
+++ b/dist/update-copyright.scm
@@ -196,8 +196,25 @@ USA.
 				"Massachusetts" "Institute" "of" "Technology"))
 			     #f)
 		       results))))
-	    (and (pair? results)
-		 (reverse results)))))))
+	    (translate-suffix leader start end results))))))
+
+(define (translate-suffix leader start end results)
+  (let ((regs (re-substring-search-forward
+	       "^[(]define last-copyright-year [0-9]+ *[)].*$\n"
+	       leader start end)))
+    (if regs
+	(reverse
+	 (cons
+	  (list (re-match-start-index 0 regs)
+		(re-match-end-index 0 regs)
+		"" "" (list
+		       (list
+			"(define" "last-copyright-year"
+			(number->string (this-year)) ")"))
+		#f)
+	  results))
+	(and (pair? results)
+	     (reverse results)))))
 
 (define (match-copyright leader start end)
   (let ((regs
diff --git a/src/runtime/version.scm b/src/runtime/version.scm
index 4d37e8227..af93bbcd9 100644
--- a/src/runtime/version.scm
+++ b/src/runtime/version.scm
@@ -31,10 +31,12 @@ USA.
 
 (define copyright-years)
 
+(define last-copyright-year 2014 )
+
 (add-boot-init!
  (lambda ()
    (set! copyright-years
-	 (let ((now 2014)
+	 (let ((now last-copyright-year)
 	       (then 1986))
 	   (iota (+ (- now then) 1) then)))
    (add-subsystem-identification! "Release" '(9 2))