aboutsummaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/sui.scm8
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")