Revision: lcourtes@laas.fr--2006-libre/guile-core--cvs-head--0--patch-82

Creator:  Ludovic Courtes <ludovic.courtes@laas.fr>

Slight edits to `srfi-37.scm'.

* srfi/srfi-37.scm: Don't use the SCSH comment syntax.  Properly use the
  `Commentary:' syntax.

1 files changed, 25 insertions, 22 deletions

diff --git a/srfi/srfi-37.scm b/srfi/srfi-37.scm
index 3e34fb7cc..481789ed3 100644
--- a/srfi/srfi-37.scm
+++ b/srfi/srfi-37.scm
@@ -6,40 +6,43 @@
 ;; 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+
 
-#! Commentary
-
-To use this module with Guile, use (cdr (program-arguments)) as
-the ARGS argument to `args-fold'.  Here is a short example:
-
- (args-fold (cdr (program-arguments))
-	    (let ((display-and-exit-proc
-		   (lambda (msg)
-		     (lambda (opt name arg)
-		       (display msg) (quit) (values)))))
-	      (list (option '(#\v "version") #f #f
-			    (display-and-exit-proc "Foo version 42.0\n"))
-		    (option '(#\h "help") #f #f
-			    (display-and-exit-proc
-			     "Usage: foo scheme-file ..."))))
-	    (lambda (opt name arg)
-	      (error "Unrecognized option `~A'" name))
-	    (lambda (op) (load op) (values)))
-!#
+;;; Commentary:
+;;
+;; To use this module with Guile, use (cdr (program-arguments)) as
+;; the ARGS argument to `args-fold'.  Here is a short example:
+;;
+;;  (args-fold (cdr (program-arguments))
+;; 	    (let ((display-and-exit-proc
+;; 		   (lambda (msg)
+;; 		     (lambda (opt name arg)
+;; 		       (display msg) (quit) (values)))))
+;; 	      (list (option '(#\v "version") #f #f
+;; 			    (display-and-exit-proc "Foo version 42.0\n"))
+;; 		    (option '(#\h "help") #f #f
+;; 			    (display-and-exit-proc
+;; 			     "Usage: foo scheme-file ..."))))
+;; 	    (lambda (opt name arg)
+;; 	      (error "Unrecognized option `~A'" name))
+;; 	    (lambda (op) (load op) (values)))
+;;
+;;; Code:
+
 
 ;;;; Module definition & exports
 (define-module (srfi srfi-37)
   #:use-module (srfi srfi-9)
-  #:export (option option-names option-required-arg? 
+  #:export (option option-names option-required-arg?
 	    option-optional-arg? option-processor
 	    args-fold))