Pitch:transpose bug ?

[Laurent Martelli]

The following piece of scheme code gives a strange result:

#(define a (make-pitch 1 4 +1))
#(define b (Pitch::transpose a (make-pitch -1 5 +1)))
#(define c (make-pitch 1 5 +1))
#(define d (Pitch::transpose c (make-pitch -1 5 +1)))
\notes { #(display (list a b c d)) }


(#<Pitch gis'' > #<Pitch eisis'' > #<Pitch ais'' > #<PitchfÔ}xÈ#'' >)

-- 
Laurent Martelli
address@hidden              http://www.linuxfan.com/~laurent