diff options
author | Ludovic Courtès | 2008-04-12 19:40:15 +0200 |
---|---|---|
committer | Ludovic Courtès | 2008-04-12 19:40:15 +0200 |
commit | e015613c32878509d4070bf163de1bd26c8d61f8 (patch) | |
tree | 57b4aa815512611d89f1f1e4f7fb35f89e86dfc4 /src/guile/skribilo/evaluator.scm | |
parent | 9edfb17b3aac5ce63e85a720cb4990bcaab3e807 (diff) | |
download | skribilo-e015613c32878509d4070bf163de1bd26c8d61f8.tar.gz skribilo-e015613c32878509d4070bf163de1bd26c8d61f8.tar.lz skribilo-e015613c32878509d4070bf163de1bd26c8d61f8.zip |
engine: Use SRFI-35 exceptions instead of `skribe-error'.
* src/guile/skribilo/engine.scm (&engine-error, &unknown-engine-error,
handle-engine-error): New. Replace all `skribe-error' invocation with
a relevant SRFI-34 `raise'.
* src/guile/skribilo/evaluator.scm (evaluate-document-from-port): Use
`lookup-engine' instead of `find-engine'. Raise an
`&invalid-argument-error' instead of using `skribe-error'.
Diffstat (limited to 'src/guile/skribilo/evaluator.scm')
-rw-r--r-- | src/guile/skribilo/evaluator.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/guile/skribilo/evaluator.scm b/src/guile/skribilo/evaluator.scm index 8b26a89..c816658 100644 --- a/src/guile/skribilo/evaluator.scm +++ b/src/guile/skribilo/evaluator.scm @@ -121,10 +121,12 @@ (debug-item "engine=" engine) (debug-item "reader=" reader) - (let ((e (if (symbol? engine) (find-engine engine) engine))) + (let ((e (if (symbol? engine) (lookup-engine engine) engine))) (debug-item "e=" e) (if (not (engine? e)) - (skribe-error 'evaluate-document-from-port "cannot find engine" engine) + (raise (condition (&invalid-argument-error + (proc-name 'evaluate-document-from-port) + (argument e)))) (let ((ast (evaluate-ast-from-port port :reader reader :module module))) (evaluate-document ast engine :env env)))))) |