From 604afa2a5a254f2f83cddf7995f1babc8804d481 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 8 Feb 2012 00:27:09 +0100 Subject: 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 . --- src/guile/skribilo/sui.scm | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'src') 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 +;;; Copyright 2005, 2006, 2007, 2008, 2009, 2012 Ludovic Courtès ;;; 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))) -- cgit v1.2.3