summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Courtès2012-02-08 00:27:09 +0100
committerLudovic Courtès2012-02-08 00:27:09 +0100
commit604afa2a5a254f2f83cddf7995f1babc8804d481 (patch)
tree849e46033796e14ac86ee67f556590dbd17316b1 /src
parent38dc7be28dcf696a7fc825011333a5847e2905a9 (diff)
downloadskribilo-604afa2a5a254f2f83cddf7995f1babc8804d481.tar.gz
skribilo-604afa2a5a254f2f83cddf7995f1babc8804d481.tar.lz
skribilo-604afa2a5a254f2f83cddf7995f1babc8804d481.zip
Work around Guile 2.0.5 compiler bug.
* src/guile/skribilo/sui.scm (sui-referenced-file): Work around compiler bug in Guile 2.0.5 <http://bugs.gnu.org/10756>.
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/sui.scm9
1 files changed, 4 insertions, 5 deletions
diff --git a/src/guile/skribilo/sui.scm b/src/guile/skribilo/sui.scm
index 3388ce8..8efda98 100644
--- a/src/guile/skribilo/sui.scm
+++ b/src/guile/skribilo/sui.scm
@@ -1,12 +1,12 @@
;;; sui.scm -- Skribe URL Indices
;;;
-;;; Copyright 2005, 2006, 2007, 2008, 2009 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright 2005, 2006, 2007, 2008, 2009, 2012 Ludovic Courtès <ludo@gnu.org>
;;; Copyright 2003, 2004 Manuel Serrano
;;;
;;;
;;; This program is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2 of the License, or
+;;; the Free Software Foundation; either version 3 of the License, or
;;; (at your option) any later version.
;;;
;;; This program is distributed in the hope that it will be useful,
@@ -297,10 +297,9 @@
;; 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)))
+ (let* ((html-file (@ (skribilo engine html) html-file))
+ (file (html-file n e)))
(if (member (file-suffix file) '("skb" "sui" "skr" "html"))
(string-append (strip-ref-base (file-prefix file)) ".html")
file)))