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

fix `current-subprocess-custodian-mode' for a #f argument

Browse Source
This commit is contained in:
Matthew Flatt 2013-02-14 17:16:05 -07:00
parent 6c49aee3a6
commit ccabbaa36e
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -410,6 +410,10 @@
(parameterize ([current-subprocess-custodian-mode 'interrupt])
(try (if (eq? 'windows (system-type)) 'running 'done-error) #t)))
;; check that #f is an allowed mode:
(parameterize ([current-subprocess-custodian-mode #f])
(test #f current-subprocess-custodian-mode))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; process groups
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

@ -8917,7 +8917,7 @@ static Scheme_Object *current_subproc_cust_mode (int argc, Scheme_Object *argv[]
{
return scheme_param_config("current-subprocess-custodian-mode", scheme_make_integer(MZCONFIG_SUBPROC_CUSTODIAN_MODE),
argc, argv,
-1, subproc_cust_mode_p, "'interrupt, 'kill, or #f", 0);
-1, subproc_cust_mode_p, "'interrupt, 'kill, or #f", 1);
}
static Scheme_Object *subproc_group_on (int argc, Scheme_Object *argv[])