mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 17:00:23 +02:00
Code Activity

SRFI-88: Call `read-set!' at compile time and run time.

Browse source 
* module/srfi/srfi-88.scm: Call `read-set!' both at compile time and run
  time.
This commit is contained in:
Ludovic Courtès 2009-10-22 19:05:59 +02:00
parent b70f43e318
commit 9c2224f2a6
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,6 +1,6 @@
;;; srfi-88.scm --- Keyword Objects ;;; srfi-88.scm --- Keyword Objects
;; Copyright (C) 2008 Free Software Foundation, Inc. ;; Copyright (C) 2008, 2009 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
@ -33,7 +33,10 @@
(cond-expand-provide (current-module) '(srfi-88)) (cond-expand-provide (current-module) '(srfi-88))
(read-set! keywords 'postfix) ;; Change the keyword syntax both at compile time and run time; the latter is
;; useful at the REPL.
(eval-when (compile load)
(read-set! keywords 'postfix))
(define (keyword->string k) (define (keyword->string k)
"Return the name of @var{k} as a string." "Return the name of @var{k} as a string."