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

fix `current-memory-use'

Browse Source 
Closes PR 9896
This commit is contained in:
Matthew Flatt 2011-11-27 09:18:52 -07:00
parent 1b7bda5f2a
commit 10246d7ade
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/racket/will.rktl
View File

@ -3,6 +3,10 @@
(Section 'wills) (Section 'wills)
(test #t exact-nonnegative-integer? (current-memory-use))
(test #t exact-nonnegative-integer? (current-memory-use #f))
(test #t exact-nonnegative-integer? (current-memory-use (current-custodian)))
(test #f will-executor? 5) (test #f will-executor? 5)
(test #t will-executor? (make-will-executor)) (test #t will-executor? (make-will-executor))

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

@ -674,13 +674,13 @@ static Scheme_Object *current_memory_use(int argc, Scheme_Object *args[])
intptr_t retval = 0; intptr_t retval = 0;
if (argc) { if (argc) {
if(SAME_TYPE(SCHEME_TYPE(args[0]), scheme_custodian_type)) { if (SCHEME_FALSEP(args[0])) {
arg = args[0]; arg = args[0];
} else if(SCHEME_PROCP(args[0])) { } else if (SAME_TYPE(SCHEME_TYPE(args[0]), scheme_custodian_type)) {
arg = args[0]; arg = args[0];
} else { } else {
scheme_wrong_type("current-memory-use", scheme_wrong_type("current-memory-use",
"custodian or memory-trace-function", "custodian or #f",
0, argc, args); 0, argc, args);
} }
} }