[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]


From: Andreas Schneider
Subject: Incipit
Date: Fri, 15 Dec 2023 19:48:20 +0100
User-agent: Mozilla Thunderbird

I'm trying to write a Scheme script for an incipit
I have started from the script for instrument name and modified it to
match my needs arriving at the following:

(let ((tag  "Incipit") (current "") )
(if (string? Incipit::params)
    (set! current Incipit::params)
    (set! Incipit::params #f)))
(set! current (d-GetUserInput (_ "Incipit") (_ "Give incipit for current
staff:") current))
(if (string? current)
  (d-DirectivePut-staff-prefix tag  (string-append "incipit { " current
" }")
  (set! Incipit::params current)))))

Unfortunately, I get a script error that I do not understand. Any idea
what is wrong?

Thanks in advance


reply via email to

[Prev in Thread] Current Thread [Next in Thread]