summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès2007-12-01 13:23:09 +0100
committerLudovic Courtès2007-12-01 13:23:09 +0100
commitdc4a68366c60ae8c0e9f2f4632d28bd8cae52cd0 (patch)
treedf4b998c514b96839bb7a7ab5c7c22318d8cfc70
parent6ad93ae6312bc4ce68dd45e982e32314f80c7e0e (diff)
downloadskribilo-dc4a68366c60ae8c0e9f2f4632d28bd8cae52cd0.tar.gz
skribilo-dc4a68366c60ae8c0e9f2f4632d28bd8cae52cd0.tar.lz
skribilo-dc4a68366c60ae8c0e9f2f4632d28bd8cae52cd0.zip
html: Better handle nodes with `:file #f'.
* src/guile/skribilo/engine/html.scm (ref): Check whether both `(*destination-file*)' _and_ F are false.
-rw-r--r--src/guile/skribilo/engine/html.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm
index b6ab8a7..7858e1a 100644
--- a/src/guile/skribilo/engine/html.scm
+++ b/src/guile/skribilo/engine/html.scm
@@ -1,7 +1,7 @@
;;; html.scm -- HTML engine.
;;;
+;;; Copyright 2005, 2006, 2007 Ludovic Courtès <ludo@gnu.org>
;;; Copyright 2003, 2004 Manuel Serrano
-;;; Copyright 2005, 2006, 2007 Ludovic Courtès <ludovic.courtes@laas.fr>
;;;
;;;
;;; This program is free software; you can redistribute it and/or modify
@@ -1890,7 +1890,7 @@
(markup-class n)
"skribilo-ref")))
(format #t "<a href=\"~a#~a\" class=\"~a\""
- (if (and (*destination-file*)
+ (if (and (*destination-file*) f
(string=? f (*destination-file*)))
""
(strip-ref-base (or f (*destination-file*) "")))