[LSR v-2.18] "File Information", strange warnings.

[Pierre Perol-Schneider]

Hi Squad,

The following snippet :
http://lsr.dsi.unimi.it/LSR/Item?id=197
partially compile with warnings :

Processing...
Parsing...
.../file-information.ly:14:2: error: GUILE signaled an error for the
expression beginning here
#
( define siz ( object->string ( stat:size ( stat filen ))))
.../file-information.ly:18:2: error: GUILE signaled an error for the
expression beginning here
#
( define modt ( stat:mtime ( stat filen )))
.../file-information.ly:19:2: error: GUILE signaled an error for the
expression beginning here
#
( define modts ( strftime "%m/%d/%Y %H:%M:%S" (localtime modt)))
.../file-information.ly:23:31: error: unknown escaped string: `\siz'
\line { "File Size = "
\siz }
.../file-information.ly:27:31: error: unknown escaped string: `\modts'
\line { "Last Modified = "
\modts }
.../file-information.ly:31:4: error: GUILE signaled an error for the
expression beginning here
{ $
( ly:export ( string-append "File Name = "
.../file-information.ly:35:4: error: GUILE signaled an error for the
expression beginning here
{ $
( ly:export ( string-append "File Size = "
.../file-information.ly:37:4: error: GUILE signaled an error for the
expression beginning here
{ $
( ly:export ( string-append "LilyPond Version = "
.../file-information.ly:39:4: error: GUILE signaled an error for the
expression beginning here
{ $
( ly:export ( string-append "Date Processed = "
.../file-information.ly:41:4: error: GUILE signaled an error for the
expression beginning here
{ $
( ly:export ( string-append "Time Processed = "
.../file-information.ly:43:4: error: GUILE signaled an error for the
expression beginning here
{ $
( ly:export ( string-append "Last Modified = "
.../file-information.ly:46:4: error: GUILE signaled an error for the
expression beginning here
{ $
( ly:export ( string-append "Command Line = "
.../file-information.ly:52:31: error: unknown escaped string: `\siz'
\line { "File Size = "
\siz }
.../file-information.ly:56:31: error: unknown escaped string: `\modts'
\line { "Last Modified = "
\modts }
Interpreting music...
Preprocessing graphical objects...
Finding the ideal number of pages...
Fitting music on 1 page...
Drawing systems...
Layout output to `file-information.ps'...
Converting to `./file-information.pdf'...
No such file or directory: "ile-information.ly"
No such file or directory: "ile-information.ly"
Unbound variable: modt
Unbound variable: ly:export
Unbound variable: ly:export
Unbound variable: ly:export
Unbound variable: ly:export
Unbound variable: ly:export
Unbound variable: ly:export
Unbound variable: ly:export
fatal error: failed files: ".../file-information.ly"

Cheers,
Pierre