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

fix check in memory limit in drr's GUI (and fix

Browse Source 
error message in custodian-limit-memory)

closes PR 13778
This commit is contained in:
Robby Findler 2013-05-25 10:05:20 -05:00
parent f79dfb4caf
commit 334052cb51
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/drracket/private/unit.rkt
View File

@ -4818,7 +4818,7 @@ module browser threading seems wrong.
(define (is-valid-number? txt)
(let* ([n (string->number (send txt get-text))])
(and n
(integer? n)
(exact-positive-integer? n)
(8 . <= . n))))
(define (background sd)

2
src/racket/src/thread.c
View File

@ -802,7 +802,7 @@ static Scheme_Object *custodian_limit_mem(int argc, Scheme_Object *args[])
} else if (SCHEME_BIGNUMP(args[1]) && SCHEME_BIGPOS(args[1])) {
lim = 0x3fffffff; /* more memory than we actually have */
} else {
scheme_wrong_contract("custodian-limit-memory", "positive-exact-integer?", 1, argc, args);
scheme_wrong_contract("custodian-limit-memory", "exact-positive-integer?", 1, argc, args);
return NULL;
}