diff options
| author | Ludovic Courtès | 2008-04-21 22:25:03 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2008-04-21 22:25:03 +0200 |
| commit | 27a6feee320cbee97b0a03ad5b8972ae448190c0 (patch) | |
| tree | 833699699d42466d73f702755e7c5029edf2ade1 /src | |
| parent | 893ed2ceb4d77f4135a560ad86bf80855ee87132 (diff) | |
| download | skribilo-27a6feee320cbee97b0a03ad5b8972ae448190c0.tar.gz skribilo-27a6feee320cbee97b0a03ad5b8972ae448190c0.tar.lz skribilo-27a6feee320cbee97b0a03ad5b8972ae448190c0.zip | |
eq: Use SRFI-35 exceptions instead of `skribe-error'.
* src/guile/skribilo/package/eq.scm: Raise `&invalid-argument-error'
when relevant.
Diffstat (limited to 'src')
| -rw-r--r-- | src/guile/skribilo/package/eq.scm | 42 |
1 files changed, 26 insertions, 16 deletions
diff --git a/src/guile/skribilo/package/eq.scm b/src/guile/skribilo/package/eq.scm index c8c3bc3..38d54c6 100644 --- a/src/guile/skribilo/package/eq.scm +++ b/src/guile/skribilo/package/eq.scm @@ -24,6 +24,7 @@ :use-module (skribilo writer) :use-module (skribilo engine) :use-module (skribilo lib) + :use-module (skribilo condition) :use-module (skribilo utils syntax) :use-module (skribilo utils keywords) ;; `the-options', etc. :autoload (skribilo package base) (it symbol sub sup) @@ -31,6 +32,8 @@ :autoload (skribilo resolve) (resolve-counter) :use-module (srfi srfi-1) + :autoload (srfi srfi-34) (raise) + :use-module (srfi srfi-35) :use-module (srfi srfi-39) :use-module (ice-9 optargs)) @@ -361,9 +364,10 @@ a symbol representing the mathematical operator denoted by @var{m} (e.g., (if (list? first) (if (null? (cdr body)) (append (reverse! result) first) - (skribe-error 'eq:apply - "wrong argument type" - body)) + (raise (condition + (&invalid-argument-error + (proc-name 'eq:apply) + (argument body))))) (loop (cdr body) (cons first result))))))))) @@ -419,11 +423,11 @@ a symbol representing the mathematical operator denoted by @var{m} (e.g., (cond ((not renderer) ;; default: use the current engine (output (it (markup-body node)) engine)) ((symbol? renderer) - (parameterize ((*embedded-renderer* #t)) - (case renderer - ;; FIXME: We should have an `embed' slot for each - ;; engine class similar to `lout-illustration'. - ((lout) + (case renderer + ;; FIXME: We should have an `embed' slot for each + ;; engine class similar to `lout-illustration'. + ((lout) + (parameterize ((*embedded-renderer* #t)) (let ((lout-code (with-output-to-string (lambda () @@ -431,13 +435,18 @@ a symbol representing the mathematical operator denoted by @var{m} (e.g., (output (lout-illustration :ident (markup-ident node) lout-code) - engine))) - (else - (skribe-error 'eq "invalid renderer" renderer))))) + engine)))) + (else + (raise (condition + (&invalid-argument-error + (proc-name 'eq) + (argument renderer))))))) ;; FIXME: `engine?' and `engine-class?' (else - (skribe-error 'eq "`:renderer' -- wrong argument type" - renderer)))))) + (raise (condition + (&invalid-argument-error + (proc-name 'eq) + (argument renderer))))))))) (define (simple-markup-writer op . obj) ;; Note: The text-only rendering is less ambiguous if we parenthesize @@ -503,9 +512,10 @@ a symbol representing the mathematical operator denoted by @var{m} (e.g., (display (if (equation-markup? second) "(" "")) (output second engine) (display (if (equation-markup? second) ")" ""))) - (skribe-error (symbol-append 'eq: op) - "wrong argument type" - body)))))) + (raise (condition + (&invalid-argument-error + (proc-name (symbol-append 'eq: op)) + (argument body))))))))) (markup-writer 'eq:expt (find-engine 'base) :action (lambda (node engine) |