diff options
| author | Ludovic Courtes | 2006-01-15 22:09:56 +0000 |
|---|---|---|
| committer | Ludovic Courtes | 2006-01-15 22:09:56 +0000 |
| commit | f66ef36a1c5a8c28e6a95ec9f6b19e20e914e42a (patch) | |
| tree | 0644c3d0dfc71fc56f0bda852914437b48f5707e /src/guile/skribilo.scm | |
| parent | 1a1f3bebff6dee978d90c823aba2995922ad2af8 (diff) | |
| parent | c72a09b779b110b2e189ab2b1872eb89f568605c (diff) | |
| download | skribilo-f66ef36a1c5a8c28e6a95ec9f6b19e20e914e42a.tar.gz skribilo-f66ef36a1c5a8c28e6a95ec9f6b19e20e914e42a.tar.lz skribilo-f66ef36a1c5a8c28e6a95ec9f6b19e20e914e42a.zip | |
Introduced SRFI-3[45] conditions; cleaned up `evaluator.scm'.
* src/guile/skribilo/condition.scm: New. * src/guile/skribilo/Makefile.am (dist_guilemodule_DATA): Added `condition.scm'. * src/guile/skribilo/evaluator.scm (skribe-eval): Renamed to `evaluate-document'. (skribe-eval-port): Renamed to `evaluate-document-from-port'. (skribe-load-options): Renamed to `*load-options*', a fluid. (skribe-load): Renamed to `load-document'. Use SRFI-34 `raise' when a file is not found. (skribe-include): Renamed to `include-document'. Use `raise'. * src/guile/skribilo/utils/compat.scm (%skribe-known-files): New. (skribe-load): New. (skribe-include): New. (skribe-load-options): New. (skribe-eval): New. (skribe-eval-port): New. * src/skribilo.in: Invoke `call-with-skribilo-error-catch'. Added a copyright notice. * src/guile/skribilo.scm (doskribe): Use `evaluate-document-from-port', not `skribe-eval-port'. * configure.ac: Look for `(srfi srfi-35)'. * AUTHORS: Mention that most of the code comes from the STkLos implementation. git-archimport-id: lcourtes@laas.fr--2004-libre/skribilo--devel--1.2--patch-27
Diffstat (limited to 'src/guile/skribilo.scm')
| -rw-r--r-- | src/guile/skribilo.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/guile/skribilo.scm b/src/guile/skribilo.scm index be914fb..b9805b3 100644 --- a/src/guile/skribilo.scm +++ b/src/guile/skribilo.scm @@ -365,7 +365,8 @@ Processes a Skribilo/Skribe source file and produces its output. (set-current-module (make-run-time-module))) (lambda () ;;(format #t "engine is ~a~%" (*current-engine*)) - (skribe-eval-port (current-input-port) (*current-engine*))) + (evaluate-document-from-port (current-input-port) + (*current-engine*))) (lambda () (set-current-output-port output-port) (set-current-module user-module))))) |