#(define (get-scheme-markup-function func)
   (string->symbol
    (string-append "make-"
                   (symbol->string func)
                   "-markup")))

... which should be replaced by

#(define (get-scheme-markup-function func)
   (symbol-append 'make- func '-markup))

Sorry, I had not realized that symbol-append is available in Guile 1.8.

Lukas


Reply via email to