Problem with music function in 2.15.18

[Nick Payne]

There's a music function I use in virtually every guitar score I've done 
with Lilypond, to move glissandi that I use to indicate that a finger 
should be kept on a string when moving frets. I just downloaded and 
installed 2.15.18 (Linux amd64 version running on Ubuntu 10.04), and the 
parameters to the function no longer seem to be being recognised as the 
correct type. The short example below shows the problem.

\version "2.15.18"

\language "english"

guide = #(define-music-function (parser location padleft padright shift 
missacc) (number? number? pair? boolean?) #{
    \once \override Glissando #'bound-details #'left #'padding = #$padleft
    \once \override Glissando #'bound-details #'right #'padding = 
#$padright
    \once \override Glissando #'extra-offset = #$shift
    \once \override Glissando #'bound-details #'right 
#'end-on-accidental = #$missacc
    \once \override Glissando #'breakable = ##t
    \once \override Glissando #'after-line-breaking = ##t
#})

\relative c' { \guide #1 #1 #'(0 . 1.4) ##f <c_3>\glissando <d_3> }

Trying to build this gives the following in the log:

==================================================
Processing `/home/nick/lilypond/examples/test.ly'
Parsing...
<string>:2:91: error: GUILE signaled an error for the expression 
beginning here
    \once \override Glissando #(quote bound-details) #(quote left) 
#(quote padding) = #
                                                                                
           $padleft
<string>:3:92: error: GUILE signaled an error for the expression 
beginning here
    \once \override Glissando #(quote bound-details) #(quote right) 
#(quote padding) = #
                                                                                
            $padright
<string>:4:59: error: GUILE signaled an error for the expression 
beginning here
    \once \override Glissando #(quote extra-offset) = #
                                                           $shift
<string>:5:102: error: GUILE signaled an error for the expression 
beginning here
    \once \override Glissando #(quote bound-details) #(quote right) 
#(quote end-on-accidental) = #
                                                                                
                      $missacc
/home/nick/lilypond/examples/test.ly:14:45: error: error in #{ ... #}
\relative c' { c4 c \guide #1 #1 #'(0 . 1.4)
                                             ##f <c_3>\glissando <d_3> }
Interpreting music...
warning: type check for `extra-offset' failed; value `#<unspecified>' 
must be of type `pair of numbers'
Preprocessing graphical objects...
Finding the ideal number of pages...
Fitting music on 1 page...
Drawing systems...
Layout output to `test.ps'...
Converting to `./test.pdf'...
Unbound variable: $padleft
Unbound variable: $padright
Unbound variable: $shift
Unbound variable: $missacc
fatal error: failed files: "/home/nick/lilypond/examples/test.ly"
=================================================

Nick