From 2256ca39ea8f034fb1cb5d657632c73a78207605 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 7 Aug 2012 11:57:51 -0500 Subject: [PATCH] raise minimum memory limit in DrRacket to 8 megabytes --- collects/drracket/private/main.rkt | 4 ++-- collects/drracket/private/unit.rkt | 2 +- .../string-constants/private/english-string-constants.rkt | 2 +- collects/string-constants/private/french-string-constants.rkt | 4 ++-- collects/string-constants/private/german-string-constants.rkt | 4 ++-- .../string-constants/private/japanese-string-constants.rkt | 2 +- collects/string-constants/private/korean-string-constants.rkt | 2 +- .../string-constants/private/russian-string-constants.rkt | 4 ++-- .../private/simplified-chinese-string-constants.rkt | 4 ++-- .../private/traditional-chinese-string-constants.rkt | 4 ++-- .../string-constants/private/ukrainian-string-constants.rkt | 4 ++-- 11 files changed, 18 insertions(+), 18 deletions(-) diff --git a/collects/drracket/private/main.rkt b/collects/drracket/private/main.rkt index 9e3d2427d3..3bbdcf148e 100644 --- a/collects/drracket/private/main.rkt +++ b/collects/drracket/private/main.rkt @@ -116,8 +116,8 @@ (drr:set-default 'drracket:child-only-memory-limit (* 1024 1024 128) (λ (x) (or (boolean? x) - (integer? x) - (x . >= . (* 1024 1024 1))))) + (exact-integer? x) + (x . >= . (* 1024 1024 8))))) (drr:set-default 'drracket:recent-language-names null diff --git a/collects/drracket/private/unit.rkt b/collects/drracket/private/unit.rkt index db282ab04a..918e68fa97 100644 --- a/collects/drracket/private/unit.rkt +++ b/collects/drracket/private/unit.rkt @@ -4639,7 +4639,7 @@ module browser threading seems wrong. (let* ([n (string->number (send txt get-text))]) (and n (integer? n) - (1 . <= . n)))) + (8 . <= . n)))) (define (background sd) (let ([txt (send tb get-editor)]) diff --git a/collects/string-constants/private/english-string-constants.rkt b/collects/string-constants/private/english-string-constants.rkt index 147b5973a2..a0635c0ed6 100644 --- a/collects/string-constants/private/english-string-constants.rkt +++ b/collects/string-constants/private/english-string-constants.rkt @@ -961,7 +961,7 @@ please adhere to these guidelines: (force-quit-menu-item-help-string "Uses custodian-shutdown-all to abort the current evaluation") (limit-memory-menu-item-label "Limit Memory...") (limit-memory-msg-1 "The limit will take effect the next time the program") - (limit-memory-msg-2 "is Run, and it must be at least one megabyte.") + (limit-memory-msg-2 "is Run, and it must be at least eight megabytes.") (limit-memory-unlimited "Unlimited") (limit-memory-limited "Limited") (limit-memory-megabytes "Megabytes") diff --git a/collects/string-constants/private/french-string-constants.rkt b/collects/string-constants/private/french-string-constants.rkt index cffa7d9d6a..904d877641 100644 --- a/collects/string-constants/private/french-string-constants.rkt +++ b/collects/string-constants/private/french-string-constants.rkt @@ -947,8 +947,8 @@ (force-quit-menu-item-label "Forcer le programme à quitter") (force-quit-menu-item-help-string "Utilise custodian-shutdown-all pour terminer toute l'évaluation courante") (limit-memory-menu-item-label "Limiter la mémoire...") - (limit-memory-msg-1 "La limite prendra effet à la prochaine exécution du programme.") - (limit-memory-msg-2 "Elle doit être d'au moins un megaoctet.") + ;(limit-memory-msg-1 "La limite prendra effet à la prochaine exécution du programme.") + ;(limit-memory-msg-2 "Elle doit être d'au moins un megaoctet.") ;; the minimum limit is now 8 megs (limit-memory-unlimited "Illimitée") (limit-memory-limited "Limitée à") (limit-memory-megabytes "megaoctets") diff --git a/collects/string-constants/private/german-string-constants.rkt b/collects/string-constants/private/german-string-constants.rkt index dad6c11e0a..b584775556 100644 --- a/collects/string-constants/private/german-string-constants.rkt +++ b/collects/string-constants/private/german-string-constants.rkt @@ -853,8 +853,8 @@ (force-quit-menu-item-label "Programm zwingen aufzuhören") (force-quit-menu-item-help-string "Benutzt custodian-shutdown-all, um die Auswertung abzubrechen") (limit-memory-menu-item-label "Speicherverbrauch einschränken...") - (limit-memory-msg-1 "Das Limit wird beim nächsten Programmstart aktiv") - (limit-memory-msg-2 "und muss mindestens ein Megabyte betragen.") + ;(limit-memory-msg-1 "Das Limit wird beim nächsten Programmstart aktiv") + ;(limit-memory-msg-2 "und muss mindestens ein Megabyte betragen.") ;; minimum memory limit is now 8 megabytes (limit-memory-unlimited "nicht einschränken") (limit-memory-limited "einschränken") (limit-memory-megabytes "Megabytes") diff --git a/collects/string-constants/private/japanese-string-constants.rkt b/collects/string-constants/private/japanese-string-constants.rkt index 881b3e5786..487e730809 100644 --- a/collects/string-constants/private/japanese-string-constants.rkt +++ b/collects/string-constants/private/japanese-string-constants.rkt @@ -867,7 +867,7 @@ please adhere to these guidelines: (force-quit-menu-item-help-string "現在の式評価を強制終了するには custodian-shutdown-all を使用してください") (limit-memory-menu-item-label "メモリを制限する...") (limit-memory-msg-1 "ここで指定したメモリ制限値は、プログラムを次回に実行するときに有効になります。") - (limit-memory-msg-2 "制限値は 1MB 以上にしてください。") + (limit-memory-msg-2 "制限値は 8MB 以上にしてください。") (limit-memory-unlimited "制限しない") (limit-memory-limited "制限する") (limit-memory-megabytes "MB") diff --git a/collects/string-constants/private/korean-string-constants.rkt b/collects/string-constants/private/korean-string-constants.rkt index 4b58fda0ac..a470b4822c 100644 --- a/collects/string-constants/private/korean-string-constants.rkt +++ b/collects/string-constants/private/korean-string-constants.rkt @@ -799,7 +799,7 @@ (force-quit-menu-item-label "프로그램 강제중단") (force-quit-menu-item-help-string "작업관리자를 사용하여 현재 계산을 중단") (limit-memory-menu-item-label "메모리 제한") - (limit-memory-msg-1 "메모리 제한은 1MB 이상이어야 하며, 바꾼 제한 설") + (limit-memory-msg-1 "메모리 제한은 8MB 이상이어야 하며, 바꾼 제한 설") (limit-memory-msg-2 "정은 프로그램을 다시 시작할 때부터 적용됩니다.") (limit-memory-unlimited "제한없음") (limit-memory-limited "제한있음") diff --git a/collects/string-constants/private/russian-string-constants.rkt b/collects/string-constants/private/russian-string-constants.rkt index 54e1d4349b..dd9043a248 100644 --- a/collects/string-constants/private/russian-string-constants.rkt +++ b/collects/string-constants/private/russian-string-constants.rkt @@ -873,8 +873,8 @@ please adhere to these guidelines: (force-quit-menu-item-label "Принудительно выйти из программы") (force-quit-menu-item-help-string "Прервать все текущие вычисления") (limit-memory-menu-item-label "Ограничение по памяти...") - (limit-memory-msg-1 "Ограничение станет действовать после следующего запуска программы") - (limit-memory-msg-2 "Для выполнения необходим, по крайней мере, один мегабайт.") + ;(limit-memory-msg-1 "Ограничение станет действовать после следующего запуска программы") + ;(limit-memory-msg-2 "Для выполнения необходим, по крайней мере, один мегабайт.") ;; minimum memory limit is now 8 megs (limit-memory-unlimited "Без ограничений") (limit-memory-limited "С ограничением") (limit-memory-megabytes "Мегабайт") diff --git a/collects/string-constants/private/simplified-chinese-string-constants.rkt b/collects/string-constants/private/simplified-chinese-string-constants.rkt index 1777adae93..a39d2875b2 100644 --- a/collects/string-constants/private/simplified-chinese-string-constants.rkt +++ b/collects/string-constants/private/simplified-chinese-string-constants.rkt @@ -776,8 +776,8 @@ (force-quit-menu-item-label "终止") (force-quit-menu-item-help-string "使用custodian-shutdown-all退出当前计算") (limit-memory-menu-item-label "限制内存使用...") - (limit-memory-msg-1 "内存限制会在下一次运行") - (limit-memory-msg-2 "时生效。内存限制最低值为1megabyte.") + ;(limit-memory-msg-1 "内存限制会在下一次运行") + ;(limit-memory-msg-2 "时生效。内存限制最低值为1megabyte.") ;; memory limit is now 8 megabytes (limit-memory-unlimited "无限制") (limit-memory-limited "限制") (limit-memory-megabytes "Megabytes") diff --git a/collects/string-constants/private/traditional-chinese-string-constants.rkt b/collects/string-constants/private/traditional-chinese-string-constants.rkt index a3f20d3a65..ddced32711 100644 --- a/collects/string-constants/private/traditional-chinese-string-constants.rkt +++ b/collects/string-constants/private/traditional-chinese-string-constants.rkt @@ -775,8 +775,8 @@ (force-quit-menu-item-label "终止") (force-quit-menu-item-help-string "使用custodian-shutdown-all退出当前计算") (limit-memory-menu-item-label "限制内存使用...") - (limit-memory-msg-1 "内存限制会在下一次运行") - (limit-memory-msg-2 "时生效。内存限制最低值为1megabyte.") + ;(limit-memory-msg-1 "内存限制会在下一次运行") + ;(limit-memory-msg-2 "时生效。内存限制最低值为1megabyte.") ;; memory limit is now 8 megabytes (limit-memory-unlimited "无限制") (limit-memory-limited "限制") (limit-memory-megabytes "Megabytes") diff --git a/collects/string-constants/private/ukrainian-string-constants.rkt b/collects/string-constants/private/ukrainian-string-constants.rkt index 8a406457d0..f1675632ef 100644 --- a/collects/string-constants/private/ukrainian-string-constants.rkt +++ b/collects/string-constants/private/ukrainian-string-constants.rkt @@ -873,8 +873,8 @@ please adhere to these guidelines: (force-quit-menu-item-label "Примусово вийти з програми") (force-quit-menu-item-help-string "Перервати всі поточні обчислення") (limit-memory-menu-item-label "Обмеження по пам'яті...") - (limit-memory-msg-1 "Обмеження стануть діяти після наступного виконання програми") - (limit-memory-msg-2 "Для виконання необхідно, принаймні, 1 мегабайт.") + ;(limit-memory-msg-1 "Обмеження стануть діяти після наступного виконання програми") + ;(limit-memory-msg-2 "Для виконання необхідно, принаймні, 1 мегабайт.") ;; minimum memory limit is now 8 megabytes (limit-memory-unlimited "Без обмежень") (limit-memory-limited "З обмеженнями") (limit-memory-megabytes "Мегабайт")