suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

change memory limit defaults

Browse Source 
svn: r12878
This commit is contained in:
Robby Findler 2008-12-17 15:42:33 +00:00
parent 1d85f9ff3c
commit 3eb2359498
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/drscheme/private/main.ss
View File

@ -94,7 +94,7 @@
(number? (car x)) (number? (car x))
(number? (cdr 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) (λ (x) (or (boolean? x)
(integer? x) (integer? x)
(x . >= . (* 1024 1024 1))))) (x . >= . (* 1024 1024 1)))))

2
collects/drscheme/private/rep.ss
View File

@ -925,7 +925,7 @@ TODO
(field (need-interaction-cleanup? #f)) (field (need-interaction-cleanup? #f))
(define/private (no-user-evaluation-message frame exit-code memory-killed?) (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 [ans (message-box/custom
(string-constant evaluation-terminated) (string-constant evaluation-terminated)
(string-append (string-append