Re: Creating markup macros (functions actually)

[Paul Scott]

Nicolas Sceaux wrote:

> Create that music-display.scm file, in the same directory as
> displayscheme.ly, with the code from
> http://lists.gnu.org/archive/html/lilypond-devel/2004-11/msg00029.html 
>  
In my best attempt to extract the code from that email I get:

GNU LilyPond 2.4.2
Processing `displayscheme.ly'
Parsing...
Backtrace:
In /usr/share/guile/1.6/srfi/srfi-1.scm:
637: 50  (if (null? rest) (map1 f list1) ...)
   ...
628: 51  (begin (set-cdr! p (list (f #))) (lp (cdr ls) (cdr p)))
629: 52* [set-cdr! ("                             'direction 1") ...
629: 53*  [list ...
629: 54*   [#<procedure #f (prop)> (text #<procedure number-markup #> #)]
In music-display.scm:
 32: 55    [format:format #f "~%~v_'~a ~a" 28 text ...
 35: 56*    (cond (# #) (# #) (#t #))
 36: 57     [format:format #f "(list~{~a~})" ...
 37: 58*     [map #<procedure #f (mus)> (#<procedure number-markup #> #)]
In /usr/share/guile/1.6/srfi/srfi-1.scm:
637: 59      (if (null? rest) (map1 f list1) ...)
       ...
628: 60      (begin (set-cdr! p (list (f #))) (lp (cdr ls) (cdr p)))
629: 61*     [set-cdr! ("                                        
number-markup") ...
629: 62*      [list ...
629: 63*       [#<procedure #f (mus)> (#<procedure simple-markup #> "1")]
In music-display.scm:
 38: 64        [format:format #f "~%~v_~a" 39 ...
 40: 65*        [mus:pretty-string (#<procedure simple-markup #> "1")]
In unknown file:
  ?: 66         (let ((depth #)) (if (not #) (error "Too many 
arguments.")) ...)
In music-display.scm:
          ...
 28: 67         (cond (# #) (# #) (# #) ...)
 61: 68*        (and (list? obj) (markup-function? (car obj)))
 61: 69         (markup-function? (car obj))

music-display.scm:61:27: In expression (markup-function? (car obj)):
music-display.scm:61:27: Unbound variable: markup-function?


Paul