mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Bump copyright years for user-visible copyright messages

Browse source 
* module/ice-9/command-line.scm (version-etc):
* module/scripts/compile.scm (show-version):
* module/system/repl/common.scm (*version*): Bump to 2021.
This commit is contained in:
Andy Wingo 2021-01-07 12:39:57 +01:00
parent 22a313b47e
commit a20ef7e769
3 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/ice-9/command-line.scm
View file

@ -1,6 +1,6 @@
;;; Parsing Guile's command-line
;;; Copyright (C) 1994-1998, 2000-2020 Free Software Foundation, Inc.
;;; Copyright (C) 1994-1998, 2000-2021 Free Software Foundation, Inc.
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@ -66,7 +66,7 @@ There is NO WARRANTY, to the extent permitted by law."))
(define* (version-etc package version #:key
(port (current-output-port))
;; FIXME: authors
(copyright-year 2020)
(copyright-year 2021)
(copyright-holder "Free Software Foundation, Inc.")
(copyright (format #f "Copyright (C) ~a ~a"
copyright-year copyright-holder))

2
module/scripts/compile.scm
View file

@ -160,7 +160,7 @@ options."
(define (show-version)
(format #t "compile (GNU Guile) ~A~%" (version))
(format #t "Copyright (C) 2020 Free Software Foundation, Inc.
(format #t "Copyright (C) 2021 Free Software Foundation, Inc.
License LGPLv3+: GNU LGPL version 3 or later <http://gnu.org/licenses/lgpl.html>.
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.~%"))

4
module/system/repl/common.scm
View file

@ -1,6 +1,6 @@
;;; Repl common routines
;; Copyright (C) 2001, 2008-2016, 2019-2020 Free Software Foundation, Inc.
;; Copyright (C) 2001, 2008-2016, 2019-2021 Free Software Foundation, Inc.
;;; This library is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Lesser General Public
@ -40,7 +40,7 @@
(define *version*
(format #f "GNU Guile ~A
Copyright (C) 1995-2020 Free Software Foundation, Inc.
Copyright (C) 1995-2021 Free Software Foundation, Inc.
Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
This program is free software, and you are welcome to redistribute it