mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 08:10:17 +02:00
Code Activity

Provide Guile-friendly `coding:' meta-data.

Browse source 
* 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.
This commit is contained in:
Ludovic Courtès 2010-01-10 23:47:55 +01:00
parent bcae9a98b0
commit bce5cb5641
6 changed files with 17 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

11
module/ice-9/i18n.scm
View file

@ -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 ;;;; 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
@ -16,7 +16,7 @@
;;;; License along with this library; if not, write to the Free Software ;;;; License along with this library; if not, write to the Free Software
;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; 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: ;;; Commentary:
;;; ;;;
@ -414,9 +414,4 @@ number of fractional digits to be displayed."
;; `YESSTR' and `NOSTR' are considered deprecated so we don't provide them. ;; `YESSTR' and `NOSTR' are considered deprecated so we don't provide them.
;;; Local Variables:
;;; coding: latin-1
;;; End:
;;; i18n.scm ends here ;;; i18n.scm ends here

10
module/rnrs/bytevector.scm
View file

@ -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 ;;;; 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
@ -16,7 +16,7 @@
;;;; License along with this library; if not, write to the Free Software ;;;; License along with this library; if not, write to the Free Software
;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; 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: ;;; Commentary:
;;; ;;;
@ -78,8 +78,4 @@
`(quote ,sym) `(quote ,sym)
(error "unsupported endianness" sym))) (error "unsupported endianness" sym)))
;;; Local Variables:
;;; coding: latin-1
;;; End:
;;; bytevector.scm ends here ;;; bytevector.scm ends here

10
module/rnrs/io/ports.scm
View file

@ -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 ;;;; 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
@ -16,7 +16,7 @@
;;;; License along with this library; if not, write to the Free Software ;;;; License along with this library; if not, write to the Free Software
;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; 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: ;;; Commentary:
;;; ;;;
@ -104,8 +104,4 @@ read from/written to in @var{port}."
(lambda () (lambda ()
(close-port port)))) (close-port port))))
;;; Local Variables:
;;; coding: latin-1
;;; End:
;;; ports.scm ends here ;;; ports.scm ends here

8
module/scripts/compile.scm
View file

@ -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 ;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public License ;; modify it under the terms of the GNU Lesser General Public License
@ -177,7 +177,3 @@ Report bugs to <~A>.~%"
input-files))) input-files)))
(define main compile) (define main compile)
;;; Local Variables:
;;; coding: latin-1
;;; End:

11
module/srfi/srfi-35.scm
View file

@ -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 ;; 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
@ -16,7 +16,7 @@
;; License along with this library; if not, write to the Free Software ;; License along with this library; if not, write to the Free Software
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;; 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: ;;; Commentary:
@ -352,9 +352,4 @@ by C."
(define-condition-type &error &serious (define-condition-type &error &serious
error?) error?)
;;; Local Variables:
;;; coding: latin-1
;;; End:
;;; srfi-35.scm ends here ;;; srfi-35.scm ends here

6
module/srfi/srfi-88.scm
View file

@ -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 ;; 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
@ -16,7 +16,7 @@
;; License along with this library; if not, write to the Free Software ;; License along with this library; if not, write to the Free Software
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;; 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: ;;; Commentary: