From 7f369445b8a14389da58d81fc66b2b4341aa1407 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Sun, 3 Jan 2016 14:29:09 -0700
Subject: [PATCH] dist/update-copyright.scm: Translate last-copyright-year.

---
 dist/update-copyright.scm | 21 +++++++++++++++++++--
 src/runtime/version.scm   |  4 +++-
 2 files changed, 22 insertions(+), 3 deletions(-)

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 b46f12e3b..9998f840c 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 1))
-- 
2.25.1