From 9280f19600da7acc0096c7cfe7f63ec16a0a25d5 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Fri, 7 Oct 2016 23:23:05 +0200 Subject: Remove use of 'getter-with-setter'. * src/guile/skribilo/reader.scm (reader:name, reader:version) (reader:make): Remove 'getter-with-setter' definitions. --- src/guile/skribilo/reader.scm | 15 ++++----------- 1 file changed, 4 insertions(+), 11 deletions(-) (limited to 'src/guile') 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 +;;; Copyright 2005, 2009, 2016 Ludovic Courtès ;;; ;;; ;;; 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))) -- cgit v1.2.3