From: Reinhold Kainhofer Date: Sat, 3 Sep 2011 16:00:50 +0000 (+0200) Subject: don't exit in (check-memory) for only 100MB of VMDATA... We use MUCH more now. X-Git-Tag: release/2.15.10-1~9 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=77f4957eea552e8fde98d0c27fab0896cad89f6f;p=lilypond.git don't exit in (check-memory) for only 100MB of VMDATA... We use MUCH more now. --- diff --git a/scm/lily.scm b/scm/lily.scm index 91b34e290a..f7e53cb179 100644 --- a/scm/lily.scm +++ b/scm/lily.scm @@ -702,7 +702,8 @@ LilyPond safe mode. The syntax is the same as `define*-public'." (mem (string->number (match:substring (car interesting) 1)))) (format #t "VMDATA: ~a\n" mem) (display (gc-stats)) - (if (> mem 100000) + (newline) + (if (> mem 500000) (begin (dump-gc-protects) (raise 1)))))