(reduce, reduce-right): Don't call f with ridentity, use

[bpt/guile.git] / srfi / srfi-10.scm

diff --git a/srfi/srfi-10.scm b/srfi/srfi-10.scm
index 0ce743a..ef0cb75 100644 (file)
--- a/srfi/srfi-10.scm
+++ b/srfi/srfi-10.scm
@@ -1,53 +1,55 @@
-;;;; srfi-10.scm --- SRFI-10 read hash extension for Guile
-;;;;
-;;;;   Copyright (C) 2001 Free Software Foundation, Inc.
-;;;; 
-;;;; This program is free software; you can redistribute it and/or
-;;;; modify it under the terms of the GNU General Public License as
-;;;; published by the Free Software Foundation; either version 2, or
-;;;; (at your option) any later version.
-;;;; 
-;;;; This program 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
-;;;; General Public License for more details.
-;;;; 
-;;;; You should have received a copy of the GNU General Public License
-;;;; along with this software; see the file COPYING.  If not, write to
-;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
-;;;; Boston, MA 02111-1307 USA
+;;; srfi-10.scm --- Hash-Comma Reader Extension
+
+;;     Copyright (C) 2001, 2002 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
+;; License as published by the Free Software Foundation; either
+;; version 2.1 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 
 ;;; Commentary:
 
-;;; This module implements the syntax extension #,(), also called
-;;; hash-comma, which is defined in SRFI-10.
-;;;
-;;; The support for SRFI-10 consists of the procedure
-;;; `define-reader-ctor' for defining new reader constructors and the
-;;; read syntax form 
-;;;
-;;; #,(<ctor> <datum> ...)
-;;;
-;;; where <ctor> must be a symbol for which a read constructor was
-;;; defined previously.
-;;;
-;;; Example:
-;;;
-;;; (define-reader-ctor 'file open-input-file)
-;;; (define f '#,(file "/etc/passwd"))
-;;; (read-line f)
-;;; =>
-;;; :root:x:0:0:root:/root:/bin/bash"
-;;;
-;;; Please note the quote before the #,(file ...) expression.  This is
-;;; necessary because ports are not self-evaluating in Guile.
+;; This module implements the syntax extension #,(), also called
+;; hash-comma, which is defined in SRFI-10.
+;;
+;; The support for SRFI-10 consists of the procedure
+;; `define-reader-ctor' for defining new reader constructors and the
+;; read syntax form
+;;
+;; #,(<ctor> <datum> ...)
+;;
+;; where <ctor> must be a symbol for which a read constructor was
+;; defined previously.
+;;
+;; Example:
+;;
+;; (define-reader-ctor 'file open-input-file)
+;; (define f '#,(file "/etc/passwd"))
+;; (read-line f)
+;; =>
+;; "root:x:0:0:root:/root:/bin/bash"
+;;
+;; Please note the quote before the #,(file ...) expression.  This is
+;; necessary because ports are not self-evaluating in Guile.
+;;
+;; This module is fully documented in the Guile Reference Manual.
 
 ;;; Code:
 
 (define-module (srfi srfi-10)
-  #:use-module (ice-9 rdelim))
+  :use-module (ice-9 rdelim)
+  :export (define-reader-ctor))
 
-(export define-reader-ctor)
+(cond-expand-provide (current-module) '(srfi-10))
 
 ;; This hash table stores the association between comma-hash tags and
 ;; the corresponding constructor procedures.
@@ -83,3 +85,5 @@
 ;; Install the hash extension.
 ;;
 (read-hash-extend #\, hash-comma)
+
+;;; srfi-10.scm ends here