diff options
| author | Ludovic Courtès | 2012-02-08 00:27:09 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2012-02-08 00:27:09 +0100 |
| commit | 604afa2a5a254f2f83cddf7995f1babc8804d481 (patch) | |
| tree | 849e46033796e14ac86ee67f556590dbd17316b1 /src/guile | |
| parent | 38dc7be28dcf696a7fc825011333a5847e2905a9 (diff) | |
| download | skribilo-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/guile')
| -rw-r--r-- | src/guile/skribilo/sui.scm | 9 |
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))) |