release: 1.1.5

[lilypond.git] / lily / paper-outputter.cc

diff --git a/lily/paper-outputter.cc b/lily/paper-outputter.cc
index 0618479ff278246348401b86cceed50e99b514ab..3185ce5ff3036bcfc42911c5aa3fb828d6d6a4de 100644 (file)
--- a/lily/paper-outputter.cc
+++ b/lily/paper-outputter.cc
@@ -146,11 +146,13 @@ Paper_outputter::output_scheme (SCM scm)
          FILE *file = fdopen (fd, "a");
          port = scm_standard_stream_to_port (file, "a", "");
          scm_display (gh_str02scm ("(load 'lily.scm)\n"), port);
+         scm_display (gh_str02scm ("(define (of) 'ps)\n"), port);
+         scm_display (gh_str02scm ("(define (of) 'tex)\n"), port);
        }
 
       scm_display (gh_str02scm ("(display ((eval "), port);
       scm_write (scm, port);
-      scm_display (gh_str02scm (") 'tex))\n"), port);
+      scm_display (gh_str02scm (") (of)))\n"), port);
       scm_newline (port);
       scm_fflush (port);