From: David Kastrup <dak@gnu.org>
Date: Fri, 23 Aug 2013 13:36:50 +0000 (+0200)
Subject: Issue 4129/1: Load (ice-9 curried-definitions) in ly/init.scm and documentation-lib.scm
X-Git-Tag: release/2.19.15-1~9
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b0b4e87862fb17bcf9674ddd66331c7c7f4a581e;p=lilypond.git

Issue 4129/1: Load (ice-9 curried-definitions) in ly/init.scm and documentation-lib.scm

The load is made conditionally for GUILEv2 where curried definitions
need this library.
---

diff --git a/ly/init.ly b/ly/init.ly
index acaa2c9899..876fc49464 100644
--- a/ly/init.ly
+++ b/ly/init.ly
@@ -6,6 +6,9 @@
 
 \version "2.16.0"
 
+#(if (guile-v2)
+  (use-modules (ice-9 curried-definitions)))
+
 #(session-initialize
   (lambda ()
    ;; we can't use ly:parser-include-string here since that does not
diff --git a/scm/documentation-lib.scm b/scm/documentation-lib.scm
index da7d296658..9747f60632 100644
--- a/scm/documentation-lib.scm
+++ b/scm/documentation-lib.scm
@@ -20,6 +20,9 @@
              (srfi srfi-13)
              (srfi srfi-1))
 
+(if (guile-v2)
+    (use-modules (ice-9 curried-definitions)))
+
 (define-class <texi-node> ()
   (appendix #:init-value #f #:accessor appendix? #:init-keyword #:appendix)
   (children #:init-value '() #:accessor node-children #:init-keyword #:children)