Re: latest guile cvs gives me problems

[David Pirotte]

Jan Nieuwenhuizen wrote:
> 
> > i just downloaded the latest guile cvs for guile-core and since can not use
> > lilypond anymore,
> 
> well, then don't do that ;-)

        exactly, stupid i am :-)

> Hmm, the changelog says:
> 
> 2001-09-20  Mikael Djurfeldt  <address@hidden>
> 
>         * num2integral.i.c (NUM2INTEGRAL): Report an error when these
>         routines are passed an inexact.  This change in behavior is
>         motivated by concordance with R5RS: It is more common that a
>         primitive doesn't want to accept an inexact for an exact.
> 
> Can you post this prelogique.ly, or another .ly that exhibits this error?

here it is:

;; -- prelogique.ly content

\include "paper16.ly"

#(define note '(columns
  ((font-relative-size . -1) (music "noteheads-2" 
    ((font-relative-size . -3) (kern . -0.1) "flags-stem")))))
#(define eight-note `(columns ,note ((kern . -0.1)
  (music ((raise . 10.0) "flags-u3")))))
#(define dotted-eight-note
  `(columns ,eight-note (music "dots-dot")))

#(define text-flat '((font-relative-size . -2) (music "accidentals--1")))
#(define title-instr `("pour Piano et 2 Cl. en Si" ,text-flat))
#(define f '((bold italic) "f"))
#(define f3corde `(lines ,f \treCorde))
% #(define ppp '((dynamic) "ppp"))
% #(define p '((dynamic) (font-relative-size . -2) "p"))
#(define ppp '((bold italic) "ppp"))
#(define p '((bold italic) "p"))

#(define 2ped-legend "(*) UC + Péd. droite")
#(define 2ped '(italic "2 Péd."))
#(define 2ped1 `(lines ,ppp ,2ped "(*)"))
#(define 2ped2 `(lines ,ppp ,2ped))
#(define pup '(italic "---/"))
#(define uc '(italic "UC"))
% #(define uc '\unaCorda)
#(define puc `(lines ,p ,uc))

#(define init `((lines "lent: sans réelle pulsation,"
  (columns "simplement " ,note " $\\leq$ 42"))))

\header {
  title = "Prélogique"
  subtitle = "à Leila Bouzalgha"
  composer = "David PIROTTE"
  opus = "Opus 1"
  piece = "~"
  poet = "~"
  % instrument = `,title-instr
  instrument = "pour Piano et 2 Cl. en Si \fetachar\fetaflat"
  meter = "~"
  arranger = "~"
  % tagline = ""
  footer = "prélogique"
}

\score {
  \notes <
    \context Staff = "Cl1" {
      \property Staff.instrument = #`(lines "Cl. 1" (columns "(Si" ,text-flat 
")"))
      % \property Score.timing = ##f
      % \property Staff.TimeSignature \override #'style = #'()
      \time 12/4        
      \clef violin
      {r2. r2. r2 r1
       r2. r2. r2 r1
      }
    }
    \context Staff = "Cl2" {
      \property Staff.instrument = #`(lines "Cl. 2" (columns "(Si" ,text-flat 
")"))
      % \property Score.timing = ##f
      % \property Staff.TimeSignature \override #'style = #'()
      \time 12/4        
      \clef violin
      {r2. r2. r2 r1
       r2. r2. r2 r1
      }
    }    
    \context PianoStaff \notes <
      \context Staff = up < 
        \property Staff.instrument = "Piano     "
        % \property PianoStaff.instrument = "Piano    "
        % \property Score.timing = ##f
        % \property Staff.TimeSignature \override #'style = #'()
        \time 12/4
        \clef violin
        {r2.^#`,init r2. fis'2_#`,ppp ~ fis'1^\fermata
         r2. r2. r2 r1
        }
      >
      \context Staff = mid <
        % \property Score.timing = ##f
        % \property Staff.TimeSignature \override #'style = #'()
        \time 12/4
        \clef bass      
        { % s1 \break
          r2. r2. r2 r1
          r2. r2. r2 r1
         }
      >
      \context Staff = down <
        \time 12/4
        % \property Score.timing = ##f
        % \property Staff.TimeSignature \override #'style = #'()
        \clef bass
        \property Staff.clefOctavation = #-15
        \property Staff.OctavateEight \set #'text = #"15"
        \property Staff.centralCPosition = #13
        % \property Staff.pedalSustainStrings = #'("-" "-P" "P")
        \relative c,
        {\stemDown 
         <a?2. b_#`,2ped2 c ais \decr> <a?2. \rced b_#`,pup c ais> a?2_#`,puc r1

         <a?2. b_#`,2ped2 c ais \decr> <a?2. \rced b_#`,pup c ais> a?2_#`,f ~ 
a1^\fermata
         }
        >
      >
    >
    \paper {
            % indent = 0.0
            % \translator {
            %   \StaffContext
            %   BarLine \override #'transparent = ##t
            %   } 
            \translator {
              \HaraKiriStaffContext
              }
            }
}

% <a?2. \decr b_#`,ppp \sustainDown ^#`,2ped-legend c ais> <a?2. \rced b c ais> 
a?2_#`,puc r1