From: hanwen <hanwen>
Date: Tue, 5 Oct 2004 21:58:16 +0000 (+0000)
Subject: (convert-to-dvi): set extra_mem_top
X-Git-Tag: release/2.3.24^2~82
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=dceaf3e5b3db36f08e52e7e3d066792270495f58;p=lilypond.git

(convert-to-dvi): set extra_mem_top
---

diff --git a/ChangeLog b/ChangeLog
index ef17edd7e8..d49f3e4aae 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2004-10-05  Han-Wen Nienhuys  <hanwen@xs4all.nl>
+
+	* scm/framework-tex.scm (convert-to-dvi): set extra_mem_top
+ 
 2004-10-04  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
 	* lily/slur-scoring.cc (struct Slur_score_state): add
diff --git a/scm/framework-tex.scm b/scm/framework-tex.scm
index b7ec9a9093..6a5bfe6b1c 100644
--- a/scm/framework-tex.scm
+++ b/scm/framework-tex.scm
@@ -285,6 +285,8 @@
   (let*
       ((cmd (string-append "latex \\\\nonstopmode \\\\input " name)))
 
+    (if (not (string? (getenv "extra_mem_top")))
+	(setenv "extra_mem_top" "1000000"))
     (newline (current-error-port))
     (display (format #f (_ "Invoking ~S") cmd) (current-error-port))
     (newline (current-error-port))