Oversight from issue 4474, caused an error when reporting the error in
circled = #(define-music-function (parser location txt) (string?)
#{ \markup { \circle #txt } #})
\relative c' { c \circled #"1" }
Cf
<URL:http://lists.gnu.org/archive/html/lilypond-user/2015-07/msg00280.html>
(define-module (scm ly-syntax-constructors)
#:use-module (lily)
- #:use-module (srfi srfi-1))
+ #:use-module (srfi srfi-1)
+ #:use-module (scm display-lily))
(define-public (music-function-call-error fun m)
(let* ((sigcar (car (ly:music-function-signature fun)))