is shapeSlur broken?

[Urs Liska]

Hi list,

the shapeSlur function from the LSR 
(http://lsr.dsi.unimi.it/LSR/Snippet?id=777) doesn't seem to work 
anymore (at least for me).

That's the 'entrance' function:

shapeSlur =
#(define-music-function (parser location offsets)
                        (list?)
  #{
    \once \override Slur #'control-points = #(shape-slur $offsets)
  #})


When calling this function I get the error:

Fehler: GUILE signalisierte einen Fehler für den hier beginnenden Ausdruck
    \once \override Slur #'control-points = #
                                             (shape-slur $offsets)

then

Warnung: Typprüfung für »control-points« gescheitert; Wert »#<unspecified>« 
muss vom Typ »list« sein

and finally

Unbound variable: $offsets

From what I see I assume that this is due to some change in syntax at 
some point (the last time I recall using this function was with 2.14.0).
But as you know I'm still quite lost with Scheme, so I can't neither 
verify nor fix this, and so I'd be gracious for any advice. Of course I 
can't be sure that this type check at the calling of the 'main' function 
is all there is to it, but lilyPond doesn't even get to call shape-slur ...

Best
Urs