diff options
| author | Ludovic Courtès | 2009-03-05 00:44:18 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2009-03-05 00:44:18 +0100 |
| commit | 744b6b673e0d946fe9c8a56f8d948891f89e79f2 (patch) | |
| tree | 6c35a35e4af87b9587c029bb6f101072f7a67541 | |
| parent | d4c65f804a72192ab27d276f2ac52ee7ae7a7751 (diff) | |
| download | skribilo-744b6b673e0d946fe9c8a56f8d948891f89e79f2.tar.gz skribilo-744b6b673e0d946fe9c8a56f8d948891f89e79f2.tar.lz skribilo-744b6b673e0d946fe9c8a56f8d948891f89e79f2.zip | |
Remove circular dependency between `writer' and `output'.
* src/guile/skribilo/writer.scm (markup-writer): Don't explicitly depend
on `output' since this creates a circular dependency.
| -rw-r--r-- | src/guile/skribilo/writer.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/guile/skribilo/writer.scm b/src/guile/skribilo/writer.scm index c57f3a8..2c2233c 100644 --- a/src/guile/skribilo/writer.scm +++ b/src/guile/skribilo/writer.scm @@ -34,7 +34,6 @@ :use-module (srfi srfi-35) :use-module (skribilo condition) :use-module (skribilo debug) - :use-module (skribilo output) :use-module (skribilo ast) :use-module (oop goops) @@ -162,7 +161,9 @@ (else (let ((m (make-writer-predicate markup predicate class)) (ac (if (eq? action 'unspecified) - (lambda (n e) (output (markup-body n) e)) + (lambda (n e) + ((@ (skribilo output) output) + (markup-body n) e)) action))) (engine-add-writer! e markup m predicate options before ac after class validate)))))) |