Issue 5104 Let scheme-sandbox use system-repl with guile-2.x

[lilypond.git] / ly / scheme-sandbox.ly

diff --git a/ly/scheme-sandbox.ly b/ly/scheme-sandbox.ly
index 7dec0dcd1c157aed892b4e152bd54bcc5d2643ac..1f233c0cfa46ce064fcedca2a47bde87408849f3 100644 (file)
--- a/ly/scheme-sandbox.ly
+++ b/ly/scheme-sandbox.ly
@@ -13,4 +13,8 @@
 % requirements may be different.
 
 #(newline)
-#(scm-style-repl)
+#(if (guile-v2)
+     (begin
+       (use-modules (system repl repl))
+       (start-repl))
+     (scm-style-repl))