read-lily-expression problems

[Michael Welsh Duggan]

Referencing lily variables within #{ #} pairs in scheme expressions is
acting rather oddly.  The first instance is considered a syntax
error.  The second is not.  An example and ouput follows:

\version "2.9.19"

foo = { <a b>4-- << a\portato \\ b-^ >> }

#(display #{ \foo #})
#(display "\n\n**********************************\n\n")
#(display #{ \foo #})

-*- mode: compilation; default-directory: "~/lily/" -*-
Compilation started at Fri Sep 22 14:18:31

lilypond -f ps /home/md5i/lily/test28.ly
GNU LilyPond 2.9.19.mwd
Processing `/home/md5i/lily/test28.ly'
Parsing...
<string>:1:33: error: unknown escaped string: `\foo'
parseStringResult = \notemode {  
                                 \foo  }
<string>:1:33: error: syntax error, unexpected STRING
parseStringResult = \notemode {  
                                 \foo  }#<Prob: Music C++: Music((origin . 
#<location <string>:1:30>) (elements #<Prob: Music C++: Music((error-found . 
#t))((name . Music) (types general-music)) >
 #<Prob: Music C++: Music((error-found . #t))((name . Music) (types 
general-music)) >
))((display-methods #<procedure #f (seq)>) (name . SequentialMusic) 
(length-callback . #<primitive-procedure 
ly:music-sequence::cumulative-length-callback>) (start-callback . 
#<primitive-procedure ly:music-sequence::first-start-callback>) 
(elements-callback . #<procedure #f (m)>) (iterator-ctor . 
#<primitive-procedure ly:sequential-iterator::constructor>) (types 
general-music sequential-music)) >


**********************************

#<Prob: Music C++: Music((origin . #<location <string>:1:30>) (elements #<Prob: 
Music C++: Music((origin . #<location <string>:1:30>) (elements #<Prob: Music 
C++: Music((origin . #<location /home/md5i/lily/test28.ly:4:8>) (elements 
#<Prob: Music C++: Music((duration . #<Duration 4 >) (origin . #<location 
/home/md5i/lily/test28.ly:4:9>) (pitch . #<Pitch a >))((display-methods 
#<procedure #f (note)>) (name . NoteEvent) (types general-music event 
note-event rhythmic-event melodic-event)) >
 #<Prob: Music C++: Music((duration . #<Duration 4 >) (origin . #<location 
/home/md5i/lily/test28.ly:4:11>) (pitch . #<Pitch b >))((display-methods 
#<procedure #f (note)>) (name . NoteEvent) (types general-music event 
note-event rhythmic-event melodic-event)) >
 #<Prob: Music C++: Music((origin . #<location /home/md5i/lily/test28.ly:4:14>) 
(articulation-type . tenuto))((display-methods #<procedure #f (event)>) (name . 
ArticulationEvent) (types general-music event articulation-event script-event)) 
>
))((display-methods #<procedure #f (expr)> #<procedure #f (expr)> #<procedure 
#f (chord)>) (name . EventChord) (iterator-ctor . #<primitive-procedure 
ly:event-chord-iterator::constructor>) (length-callback . #<primitive-procedure 
ly:music-sequence::maximum-length-callback>) (to-relative-callback . 
#<primitive-procedure ly:music-sequence::event-chord-relative-callback>) (types 
general-music event-chord simultaneous-music)) >
 #<Prob: Music C++: Music((origin . #<location /home/md5i/lily/test28.ly:4:17>) 
(elements #<Prob: Music C++: Music((origin . #<location 
/home/md5i/lily/test28.ly:4:20>) (elements #<Prob: Music C++: Music((origin . 
#<location /home/md5i/lily/test28.ly:4:20>) (duration . #<Duration 4 >) (pitch 
. #<Pitch a >))((display-methods #<procedure #f (note)>) (name . NoteEvent) 
(types general-music event note-event rhythmic-event melodic-event)) >
 #<Prob: Music C++: Music((origin . #<location /home/md5i/lily/test28.ly:4:21>) 
(articulation-type . portato))((display-methods #<procedure #f (event)>) (name 
. ArticulationEvent) (types general-music event articulation-event 
script-event)) >
))((display-methods #<procedure #f (expr)> #<procedure #f (expr)> #<procedure 
#f (chord)>) (name . EventChord) (iterator-ctor . #<primitive-procedure 
ly:event-chord-iterator::constructor>) (length-callback . #<primitive-procedure 
ly:music-sequence::maximum-length-callback>) (to-relative-callback . 
#<primitive-procedure ly:music-sequence::event-chord-relative-callback>) (types 
general-music event-chord simultaneous-music)) >
 #<Prob: Music C++: Music((origin . #<location 
/home/md5i/lily/test28.ly:4:30>))((display-methods #<procedure #f (sep)>) (name 
. VoiceSeparator) (types separator general-music)) >
 #<Prob: Music C++: Music((origin . #<location /home/md5i/lily/test28.ly:4:33>) 
(elements #<Prob: Music C++: Music((origin . #<location 
/home/md5i/lily/test28.ly:4:33>) (duration . #<Duration 4 >) (pitch . #<Pitch b 
>))((display-methods #<procedure #f (note)>) (name . NoteEvent) (types 
general-music event note-event rhythmic-event melodic-event)) >
 #<Prob: Music C++: Music((origin . #<location /home/md5i/lily/test28.ly:4:34>) 
(articulation-type . marcato))((display-methods #<procedure #f (event)>) (name 
. ArticulationEvent) (types general-music event articulation-event 
script-event)) >
))((display-methods #<procedure #f (expr)> #<procedure #f (expr)> #<procedure 
#f (chord)>) (name . EventChord) (iterator-ctor . #<primitive-procedure 
ly:event-chord-iterator::constructor>) (length-callback . #<primitive-procedure 
ly:music-sequence::maximum-length-callback>) (to-relative-callback . 
#<primitive-procedure ly:music-sequence::event-chord-relative-callback>) (types 
general-music event-chord simultaneous-music)) >
))((display-methods #<procedure #f (expr)> #<procedure #f (expr)> #<procedure 
#f (sim)>) (name . SimultaneousMusic) (iterator-ctor . #<primitive-procedure 
ly:simultaneous-music-iterator::constructor>) (start-callback . 
#<primitive-procedure ly:music-sequence::minimum-start-callback>) 
(length-callback . #<primitive-procedure 
ly:music-sequence::maximum-length-callback>) (to-relative-callback . 
#<primitive-procedure ly:music-sequence::simultaneous-relative-callback>) 
(types general-music simultaneous-music)) >
))((display-methods #<procedure #f (seq)>) (name . SequentialMusic) 
(length-callback . #<primitive-procedure 
ly:music-sequence::cumulative-length-callback>) (start-callback . 
#<primitive-procedure ly:music-sequence::first-start-callback>) 
(elements-callback . #<procedure #f (m)>) (iterator-ctor . 
#<primitive-procedure ly:sequential-iterator::constructor>) (types 
general-music sequential-music)) >
))((display-methods #<procedure #f (seq)>) (name . SequentialMusic) 
(length-callback . #<primitive-procedure 
ly:music-sequence::cumulative-length-callback>) (start-callback . 
#<primitive-procedure ly:music-sequence::first-start-callback>) 
(elements-callback . #<procedure #f (m)>) (iterator-ctor . 
#<primitive-procedure ly:sequential-iterator::constructor>) (types 
general-music sequential-music)) >


Compilation finished at Fri Sep 22 14:18:33

-- 
Michael Welsh Duggan
(address@hidden)