mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-29 19:30:36 +02:00
f6ddf827f8
* module/ice-9/boot-9.scm: * module/ice-9/i18n.scm: * module/ice-9/poll.scm: * module/ice-9/popen.scm: * module/ice-9/r6rs-libraries.scm: * module/oop/goops.scm: * module/oop/goops/compile.scm: * module/oop/goops/dispatch.scm: * module/srfi/srfi-88.scm: * module/system/foreign.scm: * module/texinfo/serialize.scm: Change most uses of 'compile' to 'expand', except where we must avoid it during initial bootstrap before the module system is loaded. Remove redundant uses of 'compile' where 'expand' is also given. Standardize on the "(expand load eval)" order of conditions.
53 lines
1.7 KiB
Scheme
53 lines
1.7 KiB
Scheme
;;; srfi-88.scm --- Keyword Objects -*- coding: utf-8 -*-
|
||
|
||
;; 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 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
|
||
;; 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
|
||
|
||
;;; Author: Ludovic Courtès <ludo@gnu.org>
|
||
|
||
;;; Commentary:
|
||
|
||
;; This is a convenience module providing SRFI-88 "keyword object". All it
|
||
;; does is setup the right reader option and export keyword-related
|
||
;; convenience procedures.
|
||
|
||
;;; Code:
|
||
|
||
(define-module (srfi srfi-88)
|
||
#:re-export (keyword?)
|
||
#:export (keyword->string string->keyword))
|
||
|
||
(cond-expand-provide (current-module) '(srfi-88))
|
||
|
||
|
||
;; 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."
|
||
(symbol->string (keyword->symbol k)))
|
||
|
||
(define (string->keyword s)
|
||
"Return the keyword object whose name is @var{s}."
|
||
(symbol->keyword (string->symbol s)))
|
||
|
||
;;; Local Variables:
|
||
;;; coding: latin-1
|
||
;;; End:
|
||
|
||
;;; srfi-88.scm ends here
|