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

changed the name of the memory limit preference so people who've used v372 get a limit by default

Browse Source 
svn: r10616
This commit is contained in:
Robby Findler 2008-07-05 13:51:20 +00:00
parent 4952fa6db9
commit f830e4bc57
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -77,7 +77,7 @@
(number? (car x))
(number? (cdr x))))))
(preferences:set-default 'drscheme:limit-memory (* 1024 1024 128)
(preferences:set-default 'drscheme:memory-limit (* 1024 1024 128)
(λ (x) (or (boolean? x)
(integer? x)
(x . >= . (* 1024 1024 100)))))

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

@ -871,7 +871,7 @@ TODO
(memory-killed-thread #f)
(user-custodian #f)
(custodian-limit (and (custodian-memory-accounting-available?)
(preferences:get 'drscheme:limit-memory)))
(preferences:get 'drscheme:memory-limit)))
(user-eventspace-box (make-weak-box #f))
(user-namespace-box (make-weak-box #f))
(user-eventspace-main-thread #f)
@ -957,7 +957,7 @@ TODO
)])
(when (equal? ans 3)
(set-custodian-limit new-limit)
(preferences:set 'drscheme:limit-memory new-limit))
(preferences:set 'drscheme:memory-limit new-limit))
(set-insertion-point (last-position))
(insert-warning "\n[Interactions disabled]")))

4
collects/drscheme/private/unit.ss
View File

@ -3130,10 +3130,10 @@ module browser threading seems wrong.
(when num
(cond
[(eq? num #t)
(preferences:set 'drscheme:limit-memory #f)
(preferences:set 'drscheme:memory-limit #f)
(send interactions-text set-custodian-limit #f)]
[else
(preferences:set 'drscheme:limit-memory
(preferences:set 'drscheme:memory-limit
(* 1024 1024 num))
(send interactions-text set-custodian-limit
(* 1024 1024 num))]))))]))