diff options
| author | Ludovic Courtès | 2009-11-20 11:46:42 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2009-11-20 11:46:42 +0100 |
| commit | 39175b785f2e5d3362f3bd72a41f2702190333e1 (patch) | |
| tree | ddbb2e5e2a30d3dbc8632d4ffdf924e47a54c03f | |
| parent | e7df9978d83d5d858c29d2d0160c7bba38145bbd (diff) | |
| download | skribilo-39175b785f2e5d3362f3bd72a41f2702190333e1.tar.gz skribilo-39175b785f2e5d3362f3bd72a41f2702190333e1.tar.lz skribilo-39175b785f2e5d3362f3bd72a41f2702190333e1.zip | |
Remove circular dependency introduced by `(skribilo sui)'.
* src/guile/skribilo/sui.scm (sui-referenced-file)[html-file]: New procedure.
| -rw-r--r-- | src/guile/skribilo/sui.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/guile/skribilo/sui.scm b/src/guile/skribilo/sui.scm index 8e5cb12..3388ce8 100644 --- a/src/guile/skribilo/sui.scm +++ b/src/guile/skribilo/sui.scm @@ -26,7 +26,6 @@ :autoload (skribilo reader) (make-reader) :autoload (skribilo engine) (find-engine) :autoload (skribilo evaluator) (evaluate-document) - :autoload (skribilo engine html)(html-file) :use-module (skribilo condition) :use-module (skribilo utils strings) :use-module (skribilo utils syntax) @@ -294,6 +293,13 @@ ;* sui-referenced-file ... */ ;*---------------------------------------------------------------------*/ (define (sui-referenced-file n e) + + ;; Hack to avoid a compile-time dependency on the HTML engine, which would + ;; create a dependency loop: + ;; (package base) -> (sui) -> (engine html) -> (package base). + (define html-file + (@ (skribilo engine html) html-file)) + (let ((file (html-file n e))) (if (member (file-suffix file) '("skb" "sui" "skr" "html")) (string-append (strip-ref-base (file-prefix file)) ".html") |