(convert-to-dvi): set extra_mem_top

diff --git a/ChangeLog b/ChangeLog
index ef17edd7e825432eb4d95a4698608084852d3b95..d49f3e4aae52cbff1b4f54dca7b640ed67833d6f 100644 (file)
--- 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 b7ec9a9093b11972fea32a2062946c01655c66eb..6a5bfe6b1ce3c2468561cfee77baf0c557e9f6ae 100644 (file)
--- 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))