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

diff --git a/dist/update-copyright.scm b/dist/update-copyright.scm
index 9c32aa8d1e4b91500582bcd9f072c061e8336396..cb58204f5d65b00dd60ba691e2d3e6e91c9aa26d 100644 (file)
--- 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 b46f12e3b9c47ce2ebc626f8f20916e677f8f411..9998f840c8f6e1ad6b25869513f940faeb029f38 100644 (file)
--- 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))