- (ly:warn (string-append
- "\n"
- input-file-name ": old relative compatibility was not used."
- )))%% there is a problem at the end of the input file
+ (old-relative-not-used-message input-file-name))%% there is a problem at the end of the input file
+
+#(if (and (not version-seen)
+ (defined? 'input-file-name))
+ (version-not-seen-message input-file-name))
+
+#(ly:set-option 'protected-scheme-parsing #f)
+#(if (or (pair? toplevel-scores) output-empty-score-list)
+ ((if (defined? 'default-toplevel-book-handler)
+ default-toplevel-book-handler
+ toplevel-book-handler)
+ parser
+ (apply ly:make-book $defaultpaper $defaultheader toplevel-scores)))