make web fails #2

[Nicolas Sceaux]

Now processing `lily-1453207079.ly'
Parsing...

input renamed to: `fret-diagram.ly'
Interpreting music... [5]
Preprocessing graphical objects... 
Calculating line breaks... [3]
Backtrace:
In /home/nicolas/cvs/lilypond/share/lilypond/scm/define-markup-commands.scm:
 589: 27* [Text_item::interpret_markup #< Output_def> ((#) (#) (# # # ...) ...) 
...]
In unknown file:
   ?: 28* [line-markup #< Output_def> ((#) (#) (# # # ...) ...) ...]
In /home/nicolas/cvs/lilypond/share/lilypond/scm/define-markup-commands.scm:
 126: 29* [stack-stencil-line 0.6 ...
 128: 30* [map #<procedure #f (m)> (#)]
In /usr/share/guile/1.6/srfi/srfi-1.scm:
 637: 31  (if (null? rest) (map1 f list1) ...)
    ...
 624: 32  (let ((ret (list #))) (letrec ((lp #)) (lp (cdr ls) ret)))
 624: 33* [list ...
 624: 34* [#<procedure #f #> #]
In /home/nicolas/cvs/lilypond/share/lilypond/scm/define-markup-commands.scm:
 128: 35  [Text_item::interpret_markup #< Output_def> ((#) (#) (# # # ...) ...) 
...]
In unknown file:
   ?: 36* [fret-diagram-terse-markup #< Output_def> ((#) (#) (# # # ...) ...) 
...]
In /home/nicolas/cvs/lilypond/share/lilypond/scm/fret-diagrams.scm:
 560: 37* (let (#) (make-fret-diagram paper # #))
 561: 38  [make-fret-diagram #< Output_def> ((#) (#) (#) ...) ...]
 342: 39  (let* (# # # # ...) (if # #) (if # #) ...)
 378: 40* (if (not #) (set! fret-diagram-stencil #))
 379: 41  (set! fret-diagram-stencil (ly:stencil-add # fret-diagram-stencil))
 379: 42* [ly:stencil-add ...
 380: 43* [draw-dots #< Output_def> ((#) (#) (#) (# # # # ...) ...) 6 ...]
 135: 44  (let* (# # # # ...) (if # labeled-dot-stencil #))
 156: 45* [ly:paper-get-font #< Output_def> ...
 160: 46* (quasiquote ((# # # # ...)))

/home/nicolas/cvs/lilypond/share/lilypond/scm/fret-diagrams.scm:160:92: In 
expression (quasiquote (#)):
/home/nicolas/cvs/lilypond/share/lilypond/scm/fret-diagrams.scm:160:92: Unbound 
variable: ss-font-encoding


The attached patch seems to correct it.

Index: scm/fret-diagrams.scm
===================================================================
RCS file: /cvsroot/lilypond/lilypond/scm/fret-diagrams.scm,v
retrieving revision 1.14
diff -u -r1.14 fret-diagrams.scm
--- scm/fret-diagrams.scm       9 Aug 2004 03:12:02 -0000       1.14
+++ scm/fret-diagrams.scm       18 Aug 2004 20:16:36 -0000
@@ -5,7 +5,7 @@
 ;;;; (c) 2004 Carl D. Sorensen <address@hidden>
 
 (define ly:paper-lookup ly:output-def-lookup) ; compat for 2.3, remove  when 
using 2.2
-(define my-font-encoding 'ec )
+(define ss-font-encoding 'ec )
 
 (define (fret-parse-marking-list marking-list fret-count)
    (let* ((fret-range (list 1 fret-count))

nicolas