1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00

ice-9 format license update

* module/ice-9/format.scm: A more standard copyright header, with
  LGPLv3+ instead of public domain. Update define-module block.
This commit is contained in:
Andy Wingo 2010-12-18 11:21:29 +01:00
parent 7bc8b4afa2
commit e3e3394374

View file

@ -1,23 +1,41 @@
;;;; "format.scm" Common LISP text output formatter for SLIB ;;;; "format.scm" Common LISP text output formatter for SLIB
;;; Written 1992-1994 by Dirk Lutzebaeck (lutzeb@cs.tu-berlin.de) ;;; Copyright (C) 2010 Free Software Foundation, Inc.
;;; Assimilated into Guile May 1999 ;;;
;; ;;; This library is free software; you can redistribute it and/or
;; This code is in the public domain. ;;; modify it under the terms of the GNU Lesser General Public
;;; License as published by the Free Software Foundation; either
;;; version 3 of the License, or (at your option) any later version.
;;;
;;; This library is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;;; Lesser General Public License for more details.
;;;
;;; You should have received a copy of the GNU Lesser General Public
;;; License along with this library; if not, write to the Free Software
;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
;;;
;; Authors of the original version (< 1.4) were Ken Dickey and Aubrey Jaffer. ;;; This code was orignally in the public domain.
;; Please send error reports to bug-guile@gnu.org. ;;;
;; For documentation see slib.texi and format.doc. ;;; Written 1992-1994 by Dirk Lutzebaeck (lutzeb@cs.tu-berlin.de).
;; For testing load formatst.scm. ;;;
;; ;;; Authors of the version from SLIB (< 1.4) were Ken Dickey and Aubrey
;; Version 3.0 ;;; Jaffer.
;;;
;;; Assimilated into Guile May 1999.
;;;
;;; Please don't bother the original authors with bug reports, though;
;;; send them to bug-guile@gnu.org.
;;;
(define-module (ice-9 format) (define-module (ice-9 format)
:use-module (ice-9 and-let-star) #:use-module (ice-9 and-let-star)
:autoload (ice-9 pretty-print) (pretty-print truncated-print) #:autoload (ice-9 pretty-print) (pretty-print truncated-print)
:replace (format) #:replace (format)
:export (format:symbol-case-conv #:export (format:symbol-case-conv
format:iobj-case-conv format:iobj-case-conv
format:expch)) format:expch))
;;; Configuration ------------------------------------------------------------ ;;; Configuration ------------------------------------------------------------