diff options
| author | Ludovic Courtes | 2006-01-15 21:22:18 +0000 |
|---|---|---|
| committer | Ludovic Courtes | 2006-01-15 21:22:18 +0000 |
| commit | c72a09b779b110b2e189ab2b1872eb89f568605c (patch) | |
| tree | 0644c3d0dfc71fc56f0bda852914437b48f5707e /src/guile/skribilo.scm | |
| parent | 2fa5d0c750d71bbdf5b2c20db01f274ab5da0cc9 (diff) | |
| download | skribilo-c72a09b779b110b2e189ab2b1872eb89f568605c.tar.gz skribilo-c72a09b779b110b2e189ab2b1872eb89f568605c.tar.lz skribilo-c72a09b779b110b2e189ab2b1872eb89f568605c.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--2005-mobile/skribilo--devel--1.2--patch-24
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))))) |