From 3eb23594983d7ec01998fd49ecd1b40d4b88a6ce Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 17 Dec 2008 15:42:33 +0000 Subject: [PATCH] change memory limit defaults svn: r12878 --- collects/drscheme/private/main.ss | 2 +- collects/drscheme/private/rep.ss | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/drscheme/private/main.ss b/collects/drscheme/private/main.ss index 5f766ce8f5..55ca8ff9d6 100644 --- a/collects/drscheme/private/main.ss +++ b/collects/drscheme/private/main.ss @@ -94,7 +94,7 @@ (number? (car x)) (number? (cdr x)))))) -(preferences:set-default 'drscheme:child-only-memory-limit (* 1024 1024 64) +(preferences:set-default 'drscheme:child-only-memory-limit (* 1024 1024 128) (λ (x) (or (boolean? x) (integer? x) (x . >= . (* 1024 1024 1))))) diff --git a/collects/drscheme/private/rep.ss b/collects/drscheme/private/rep.ss index 96af29feff..8b15e0b73b 100644 --- a/collects/drscheme/private/rep.ss +++ b/collects/drscheme/private/rep.ss @@ -925,7 +925,7 @@ TODO (field (need-interaction-cleanup? #f)) (define/private (no-user-evaluation-message frame exit-code memory-killed?) - (let* ([new-limit (and custodian-limit (+ (* 1024 1024 32) custodian-limit))] + (let* ([new-limit (and custodian-limit (+ custodian-limit custodian-limit))] [ans (message-box/custom (string-constant evaluation-terminated) (string-append