Help with scheme

[Michael Gerdau]

Dear lilyponders,

I've donwloaded some older lilypond sources (version 2.18.2) from 
cpdl.org and am trying to make them work with 2.25.18.

Most things are straight forward however there is some scheme code that 
allows to switch between different clefs.

Could someone with better scheme fu than I have tell me how I should 
adjust the code for 2.25.18?

The error I get is:
Starte lilypond 2.25.18 [scheme-error.ly]...
Processing `/home/mgd/lilypond-Noten/scheme-error.ly'
Parsing...
/home/mgd/lilypond-Noten/scheme-error.ly:10:2: error: Guile signaled an 
error for the expression beginning here
#
 (cond
Syntax error:
/home/mgd/lilypond-Noten/scheme-error.ly:10:0: body should end with an 
expression in form (let () (define *use-gamba-clefs* #t))
fatal error: failed files: "/home/mgd/lilypond-Noten/scheme-error.ly"
Wurde mit dem Return-Code 1 beendet.


Trying to make sense of the errormsg I verbatim replaced
  (#t (define *use-gamba-clefs* #t))
with
  (let () (define *use-gamba-clefs* #t))
but that doesn't work either (the error is different though).



snip -- snip -- snip -- snip -- snip -- snip -- snip -- snip -- snip
\version "2.25.18"

#(define *clefs-option* (ly:get-option 'clefs))
% #(display "\nDEBUG: *clefs-options* = ") #(display (ly:get-option 
'clefs)) #(display "\n")

#(define *use-recorder-clefs* (eq? *clefs-option* 'recorder))
#(define *use-gamba-clefs*    (eq? *clefs-option* 'gamba))
#(define *use-original-clefs* (eq? *clefs-option* 'original))

#(cond
  (*use-recorder-clefs*  (display "\nUsing recorder clefs.\n"))
  (*use-gamba-clefs*     (display "\nUsing gamba clefs.\n"))
  (*use-original-clefs*  (display "\nUsing original clefs.\n"))
  (#t (define *use-gamba-clefs* #t))
  )

insertClef = #(cond
               (*use-recorder-clefs*  #{ \clef treble #})
               (*use-gamba-clefs*     #{ \clef alto #})
               (*use-original-clefs*  #{ \clef mezzosoprano #})
               )
snip -- snip -- snip -- snip -- snip -- snip -- snip -- snip -- snip

Kind regards,
Michael
--
 Michael Gerdau       email: mgd@qata.de
 GPG-keys available on request or at public keyserver