Defining a markup text using Scheme

[Caio Giovaneti de Barros]

Hello!

I'm trying to build a function that creates a circled text of my choice using \markup and a bit of Scheme. So far what I have is:

circled = #(define-music-function (parser location txt) (string?)

#{ \markup { \circle #txt } #})

\relative c' { c \circled #"1" }

But when I run it with Lilypond 2.19.23 I get:

In _expression_ (value->lily-string m):

/home/caio/lilypond/usr/share/lilypond/current/scm/ly-syntax-constructors.scm:33:14: Unbound variable: value->lily-string

Version 2.18.2 gives me:

music function cannot return (#<procedure line-markup (layout props args)> ((#<procedure circle-markup (layout props arg)> 1)))

\relative c' { c
  \circled #"1" }

What am I doing wrong?
Caio G. de Barros