285 |
(let* |
(let* |
286 |
((cmd (string-append "latex \\\\nonstopmode \\\\input " name))) |
((cmd (string-append "latex \\\\nonstopmode \\\\input " name))) |
287 |
|
|
288 |
|
(if (not (string? (getenv "extra_mem_top"))) |
289 |
|
(setenv "extra_mem_top" "1000000")) |
290 |
(newline (current-error-port)) |
(newline (current-error-port)) |
291 |
(display (format #f (_ "Invoking ~S") cmd) (current-error-port)) |
(display (format #f (_ "Invoking ~S") cmd) (current-error-port)) |
292 |
(newline (current-error-port)) |
(newline (current-error-port)) |