make web fails

[Nicolas Sceaux]

/ChangeLog/1.2466/Wed Aug 18 15:25:05 2004//

  nicolas:~/cvs/lilypond> make web
  [...]
  Now processing `lily-1249256772.ly'
  [...]
  /home/nicolas/cvs/lilypond/share/lilypond/scm/framework-tex.scm:188:17: In 
expression (ly:paper-book-lines book):
  /home/nicolas/cvs/lilypond/share/lilypond/scm/framework-tex.scm:188:17: 
Unbound variable: ly:paper-book-lines

Should it be ly:paper-book-systems? (make web likes better)

Index: scm/framework-ps.scm
===================================================================
RCS file: /cvsroot/lilypond/lilypond/scm/framework-ps.scm,v
retrieving revision 1.21
diff -u -r1.21 framework-ps.scm
--- scm/framework-ps.scm        13 Aug 2004 15:53:22 -0000      1.21
+++ scm/framework-ps.scm        18 Aug 2004 19:46:17 -0000
@@ -213,7 +213,7 @@
 
 (define-public (output-preview-framework outputter book scopes fields basename)
   (let* ((bookpaper (ly:paper-book-book-paper book))
-        (systems (ly:paper-book-lines book))
+        (systems (ly:paper-book-systems book))
         (scale  (ly:output-def-lookup bookpaper 'outputscale ))
         (titles (take-while ly:paper-system-title? systems))
         (non-title (find (lambda (x)
Index: scm/framework-tex.scm
===================================================================
RCS file: /cvsroot/lilypond/lilypond/scm/framework-tex.scm,v
retrieving revision 1.16
diff -u -r1.16 framework-tex.scm
--- scm/framework-tex.scm       25 Jul 2004 13:10:51 -0000      1.16
+++ scm/framework-tex.scm       18 Aug 2004 19:46:17 -0000
@@ -185,7 +185,7 @@
 (define-public (output-classic-framework
                outputter book scopes fields basename)
   (let* ((bookpaper (ly:paper-book-book-paper book))
-        (lines (ly:paper-book-lines book))
+        (lines (ly:paper-book-systems book))
         (last-line (car (last-pair lines))))
     (for-each
      (lambda (x)
@@ -206,7 +206,7 @@
 (define-public (output-preview-framework
                outputter book scopes fields basename )
   (let* ((bookpaper (ly:paper-book-book-paper book))
-        (lines (ly:paper-book-lines book)))
+        (lines (ly:paper-book-systems book)))
     (for-each
      (lambda (x)
        (ly:outputter-dump-string outputter x))

nicolas