Merge commit '866af5da3d11ac4a9df44ee8c5b1781a0073c288'

[bpt/guile.git] / module / srfi / srfi-88.scm

diff --git a/module/srfi/srfi-88.scm b/module/srfi/srfi-88.scm
index ebde81d..043a4a7 100644 (file)
--- a/module/srfi/srfi-88.scm
+++ b/module/srfi/srfi-88.scm
@@ -1,11 +1,11 @@
-;;; srfi-88.scm --- Keyword Objects
+;;; srfi-88.scm --- Keyword Objects              -*- coding: utf-8 -*-
 
-;; Copyright (C) 2008 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
 ;; License as published by the Free Software Foundation; either
-;; version 2.1 of the License, or (at your option) any later version.
+;; 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
@@ -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:
 
@@ -33,7 +33,10 @@
 (cond-expand-provide (current-module) '(srfi-88))
 
 \f
-(read-set! keywords 'postfix)
+;; Change the keyword syntax both at compile time and run time; the latter is
+;; useful at the REPL.
+(eval-when (expand load eval)
+  (read-set! keywords 'postfix))
 
 (define (keyword->string k)
   "Return the name of @var{k} as a string."