diff options
Diffstat (limited to 'src/guile')
| -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") |