From 4c3e6d29d09c38644a826de3483379d1ae88b45e Mon Sep 17 00:00:00 2001 From: Ludovic Courtes Date: Sun, 19 Mar 2006 15:13:13 +0000 Subject: Image- and compat-related fixes. * src/guile/skribilo/utils/images.scm: Autoload `parameters' on `*verbose*' too. * src/guile/skribilo/lib.scm (skribe-read): Moved to... * src/guile/skribilo/utils/compat.scm: ... here. git-archimport-id: lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-48 --- src/guile/skribilo/lib.scm | 12 +----------- src/guile/skribilo/utils/compat.scm | 12 +++++++++--- src/guile/skribilo/utils/images.scm | 2 +- 3 files changed, 11 insertions(+), 15 deletions(-) (limited to 'src/guile') diff --git a/src/guile/skribilo/lib.scm b/src/guile/skribilo/lib.scm index e6d0264..f08a36e 100644 --- a/src/guile/skribilo/lib.scm +++ b/src/guile/skribilo/lib.scm @@ -26,7 +26,6 @@ skribe-type-error skribe-warning skribe-warning/ast skribe-message - skribe-read %procedure-arity) @@ -248,16 +247,7 @@ (Loop (cdr l)))))) -;;; -;;; Various things. -;;; - - -(define* (skribe-read #:optional (port (current-input-port))) - (%skribe-reader port)) - (define (%procedure-arity proc) - (car (procedure-property proc 'arity))) - + (car (procedure-property proc 'arity))) ;;; lib.scm ends here diff --git a/src/guile/skribilo/utils/compat.scm b/src/guile/skribilo/utils/compat.scm index d4a4367..24ce784 100644 --- a/src/guile/skribilo/utils/compat.scm +++ b/src/guile/skribilo/utils/compat.scm @@ -31,8 +31,9 @@ :use-module (ice-9 optargs) :autoload (skribilo ast) (ast?) :autoload (skribilo condition) (file-search-error? &file-search-error) + :autoload (skribilo reader) (make-reader) :use-module (skribilo debug) - :re-export (file-size) + :re-export (file-size) ;; re-exported from `(skribilo utils files)' :replace (gensym)) ;;; Author: Ludovic Courtès @@ -167,6 +168,13 @@ (define-public skribe-eval evaluate-document) (define-public skribe-eval-port evaluate-document-from-port) +(set! %skribe-reader #f) +(define* (skribe-read #:optional (port (current-input-port))) + (if (not %skribe-reader) + (set! %skribe-reader (make-reader 'skribe))) + (%skribe-reader port)) + + ;;; ;;; Debugging facilities. @@ -265,6 +273,4 @@ (define (date) (s19:date->string (s19:current-date) "~c")) - - ;;; compat.scm ends here diff --git a/src/guile/skribilo/utils/images.scm b/src/guile/skribilo/utils/images.scm index f65d036..2d163bc 100644 --- a/src/guile/skribilo/utils/images.scm +++ b/src/guile/skribilo/utils/images.scm @@ -24,7 +24,7 @@ *fig-convert-program* *bitmap-convert-program*) :autoload (skribilo utils files) (file-suffix file-prefix) - :autoload (skribilo parameters) (*image-path*) + :autoload (skribilo parameters) (*image-path* *verbose*) :autoload (skribilo condition) (&file-search-error) :autoload (srfi srfi-34) (raise) :use-module (srfi srfi-35) -- cgit v1.2.3