diff options
Diffstat (limited to 'src/guile/skribilo/output.scm')
-rw-r--r-- | src/guile/skribilo/output.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/guile/skribilo/output.scm b/src/guile/skribilo/output.scm index a33c040..a056c55 100644 --- a/src/guile/skribilo/output.scm +++ b/src/guile/skribilo/output.scm @@ -21,9 +21,10 @@ (define-module (skribilo output) - :autoload (skribilo engine) (engine-ident processor-get-engine) :autoload (skribilo writer) (writer? writer-ident lookup-markup-writer) :autoload (skribilo location) (location?) + :autoload (skribilo engine) (engine-class engine-ident engine-filter) + :use-module (skribilo ast) :use-module (skribilo debug) :use-module (skribilo utils syntax) @@ -146,7 +147,7 @@ (define-method (out (node <string>) e) - (let ((f (slot-ref e 'filter))) + (let ((f (engine-filter e))) (if (procedure? f) (display (f node)) (display node)))) @@ -222,7 +223,7 @@ (define-method (out (node <markup>) e) - (let ((w (lookup-markup-writer node e))) + (let ((w (lookup-markup-writer node (engine-class e)))) (if (writer? w) (%out/writer node e w) (output (slot-ref node 'body) e)))) |