diff options
author | Ludovic Courtès <ludo@gnu.org> | 2010-01-10 23:47:55 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2010-01-11 01:21:13 +0100 |
commit | bce5cb56413da437c29628c529cec47649d12eb9 (patch) | |
tree | cf3367661824f906084ce9ec5897d59fdce5105d | |
parent | bcae9a98b0dd82b7be93e90134a01a03b44b4af7 (diff) | |
download | guile-bce5cb56413da437c29628c529cec47649d12eb9.tar.gz |
Provide Guile-friendly `coding:' meta-data.
* module/ice-9/i18n.scm, module/rnrs/bytevector.scm,
module/rnrs/io/ports.scm, module/scripts/compile.scm,
module/srfi/srfi-35.scm, module/srfi/srfi-88.scm: Write `coding:'
comment at the top.
-rw-r--r-- | module/ice-9/i18n.scm | 11 | ||||
-rw-r--r-- | module/rnrs/bytevector.scm | 10 | ||||
-rw-r--r-- | module/rnrs/io/ports.scm | 10 | ||||
-rw-r--r-- | module/scripts/compile.scm | 8 | ||||
-rw-r--r-- | module/srfi/srfi-35.scm | 11 | ||||
-rw-r--r-- | module/srfi/srfi-88.scm | 6 |
6 files changed, 17 insertions, 39 deletions
diff --git a/module/ice-9/i18n.scm b/module/ice-9/i18n.scm index 52d7cb48b..6fa31e409 100644 --- a/module/ice-9/i18n.scm +++ b/module/ice-9/i18n.scm @@ -1,6 +1,6 @@ -;;;; i18n.scm --- internationalization support +;;;; i18n.scm --- internationalization support -*- coding: utf-8 -*- -;;;; Copyright (C) 2006, 2007, 2009 Free Software Foundation, Inc. +;;;; Copyright (C) 2006, 2007, 2009, 2010 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 @@ -16,7 +16,7 @@ ;;;; License along with this library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA -;;; Author: Ludovic Courtès <ludo@gnu.org> +;;; Author: Ludovic Courtès <ludo@gnu.org> ;;; Commentary: ;;; @@ -414,9 +414,4 @@ number of fractional digits to be displayed." ;; `YESSTR' and `NOSTR' are considered deprecated so we don't provide them. - -;;; Local Variables: -;;; coding: latin-1 -;;; End: - ;;; i18n.scm ends here diff --git a/module/rnrs/bytevector.scm b/module/rnrs/bytevector.scm index 32929c698..56b8a6403 100644 --- a/module/rnrs/bytevector.scm +++ b/module/rnrs/bytevector.scm @@ -1,6 +1,6 @@ -;;;; bytevector.scm --- R6RS bytevector API +;;;; bytevector.scm --- R6RS bytevector API -*- coding: utf-8 -*- -;;;; Copyright (C) 2009 Free Software Foundation, Inc. +;;;; Copyright (C) 2009, 2010 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 @@ -16,7 +16,7 @@ ;;;; License along with this library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA -;;; Author: Ludovic Courtès <ludo@gnu.org> +;;; Author: Ludovic Courtès <ludo@gnu.org> ;;; Commentary: ;;; @@ -78,8 +78,4 @@ `(quote ,sym) (error "unsupported endianness" sym))) -;;; Local Variables: -;;; coding: latin-1 -;;; End: - ;;; bytevector.scm ends here diff --git a/module/rnrs/io/ports.scm b/module/rnrs/io/ports.scm index d1b96b31a..308a36cc8 100644 --- a/module/rnrs/io/ports.scm +++ b/module/rnrs/io/ports.scm @@ -1,6 +1,6 @@ -;;;; ports.scm --- R6RS port API +;;;; ports.scm --- R6RS port API -*- coding: utf-8 -*- -;;;; Copyright (C) 2009 Free Software Foundation, Inc. +;;;; Copyright (C) 2009, 2010 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 @@ -16,7 +16,7 @@ ;;;; License along with this library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA -;;; Author: Ludovic Courtès <ludo@gnu.org> +;;; Author: Ludovic Courtès <ludo@gnu.org> ;;; Commentary: ;;; @@ -104,8 +104,4 @@ read from/written to in @var{port}." (lambda () (close-port port)))) -;;; Local Variables: -;;; coding: latin-1 -;;; End: - ;;; ports.scm ends here diff --git a/module/scripts/compile.scm b/module/scripts/compile.scm index 9b14f2fca..3e451a6b3 100644 --- a/module/scripts/compile.scm +++ b/module/scripts/compile.scm @@ -1,6 +1,6 @@ -;;; Compile --- Command-line Guile Scheme compiler +;;; Compile --- Command-line Guile Scheme compiler -*- coding: iso-8859-1 -*- -;; Copyright 2005,2008,2009 Free Software Foundation, Inc. +;; Copyright 2005,2008,2009,2010 Free Software Foundation, Inc. ;; ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public License @@ -177,7 +177,3 @@ Report bugs to <~A>.~%" input-files))) (define main compile) - -;;; Local Variables: -;;; coding: latin-1 -;;; End: diff --git a/module/srfi/srfi-35.scm b/module/srfi/srfi-35.scm index 5d6557d61..7f1ff7fc9 100644 --- a/module/srfi/srfi-35.scm +++ b/module/srfi/srfi-35.scm @@ -1,6 +1,6 @@ -;;; srfi-35.scm --- Conditions +;;; srfi-35.scm --- Conditions -*- coding: utf-8 -*- -;; Copyright (C) 2007, 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 2007, 2008, 2009, 2010 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 @@ -16,7 +16,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA -;;; Author: Ludovic Courtès <ludo@gnu.org> +;;; Author: Ludovic Courtès <ludo@gnu.org> ;;; Commentary: @@ -352,9 +352,4 @@ by C." (define-condition-type &error &serious error?) - -;;; Local Variables: -;;; coding: latin-1 -;;; End: - ;;; srfi-35.scm ends here diff --git a/module/srfi/srfi-88.scm b/module/srfi/srfi-88.scm index 9538f5c3d..b9056a46a 100644 --- a/module/srfi/srfi-88.scm +++ b/module/srfi/srfi-88.scm @@ -1,6 +1,6 @@ -;;; srfi-88.scm --- Keyword Objects +;;; srfi-88.scm --- Keyword Objects -*- coding: utf-8 -*- -;; Copyright (C) 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 2008, 2009, 2010 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 @@ -16,7 +16,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA -;;; Author: Ludovic Courtès <ludo@gnu.org> +;;; Author: Ludovic Courtès <ludo@gnu.org> ;;; Commentary: |