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 ;;; 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 ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; 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 (define* (version-etc package version #:key
(port (current-output-port)) (port (current-output-port))
;; FIXME: authors ;; FIXME: authors
(copyright-year 2020) (copyright-year 2021)
(copyright-holder "Free Software Foundation, Inc.") (copyright-holder "Free Software Foundation, Inc.")
(copyright (format #f "Copyright (C) ~a ~a" (copyright (format #f "Copyright (C) ~a ~a"
copyright-year copyright-holder)) copyright-year copyright-holder))

2
module/scripts/compile.scm
View file

@ -160,7 +160,7 @@ options."
(define (show-version) (define (show-version)
(format #t "compile (GNU Guile) ~A~%" (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>. 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. This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.~%")) 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 ;;; 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 ;;; This library is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Lesser General Public ;;; modify it under the terms of the GNU Lesser General Public
@ -40,7 +40,7 @@
(define *version* (define *version*
(format #f "GNU Guile ~A (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'. Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
This program is free software, and you are welcome to redistribute it This program is free software, and you are welcome to redistribute it