From b0b4e87862fb17bcf9674ddd66331c7c7f4a581e Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Fri, 23 Aug 2013 15:36:50 +0200
Subject: [PATCH] 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.
---
 ly/init.ly                | 3 +++
 scm/documentation-lib.scm | 3 +++
 2 files changed, 6 insertions(+)

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)
-- 
2.39.5