From e60804663adb6688e62cbd891ddbbabdf63e0f90 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 16 Oct 2005 14:30:19 +0000
Subject: [PATCH] *** empty log message ***

---
 input/wilhelmus.ly | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/input/wilhelmus.ly b/input/wilhelmus.ly
index 07d7cc1ee9..aee4e03844 100644
--- a/input/wilhelmus.ly
+++ b/input/wilhelmus.ly
@@ -48,7 +48,7 @@ setMargins = {
 
 pipeSymbol = {
   %% Set height of bar line to 2 staff-spaces
-  \once \override Staff.BarLine #'bar-size-procedure = #(lambda (x) 2)
+  \once \override Staff.BarLine #'bar-size = #2
   %% Move barline one staff-space up
   \once \override Staff.BarLine #'extra-offset = #'(0 . 1)
   \bar "|"
-- 
2.39.5