From dc4a68366c60ae8c0e9f2f4632d28bd8cae52cd0 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sat, 1 Dec 2007 13:23:09 +0100
Subject: html: Better handle nodes with `:file #f'.

* src/guile/skribilo/engine/html.scm (ref): Check whether both
  `(*destination-file*)' _and_ F are false.
---
 src/guile/skribilo/engine/html.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

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*) "")))
-- 
cgit v1.2.3