aboutsummaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Courtès2016-10-07 23:23:05 +0200
committerLudovic Courtès2016-10-07 23:25:12 +0200
commit9280f19600da7acc0096c7cfe7f63ec16a0a25d5 (patch)
tree31a8156c82c17c4b7775819f1e00d7b75b44efdf /src/guile
parent3693635919102f1e71dae169bf734cc6381d1fef (diff)
downloadskribilo-9280f19600da7acc0096c7cfe7f63ec16a0a25d5.tar.gz
skribilo-9280f19600da7acc0096c7cfe7f63ec16a0a25d5.tar.lz
skribilo-9280f19600da7acc0096c7cfe7f63ec16a0a25d5.zip
Remove use of 'getter-with-setter'.
* src/guile/skribilo/reader.scm (reader:name, reader:version) (reader:make): Remove 'getter-with-setter' definitions.
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/reader.scm15
1 files changed, 4 insertions, 11 deletions
diff --git a/src/guile/skribilo/reader.scm b/src/guile/skribilo/reader.scm
index 448f65a..5a985c5 100644
--- a/src/guile/skribilo/reader.scm
+++ b/src/guile/skribilo/reader.scm
@@ -1,7 +1,7 @@
;;; reader.scm -- Skribilo's front-end (aka. reader) interface.
;;; -*- coding: iso-8859-1 -*-
;;;
-;;; Copyright 2005, 2009 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright 2005, 2009, 2016 Ludovic Courtès <ludo@gnu.org>
;;;
;;;
;;; This file is part of Skribilo.
@@ -21,13 +21,15 @@
(define-module (skribilo reader)
:use-module (srfi srfi-9) ;; records
- :use-module (srfi srfi-17) ;; generalized `set!'
:use-module (srfi srfi-39) ;; parameter objects
:use-module (skribilo condition)
:autoload (srfi srfi-34) (raise)
:use-module (srfi srfi-35)
:export (%make-reader lookup-reader make-reader
*document-reader*
+ reader:name
+ reader:version
+ reader:make
&reader-search-error reader-search-error?
reader-search-error:reader
@@ -53,15 +55,6 @@
;; that returns a reader
;; proc
-(define-public reader:name
- (getter-with-setter reader:name reader:set-name!))
-
-(define-public reader:version
- (getter-with-setter reader:version reader:set-version!))
-
-(define-public reader:make
- (getter-with-setter reader:make reader:set-make!))
-
(define-macro (define-reader name version make-proc)
`(define reader-specification
(%make-reader (quote ,name) ,version ,make-proc)))