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

make-pipe accepts #f as first argument

Browse Source 
svn: r5417
This commit is contained in:
Matthew Flatt 2007-01-19 20:45:59 +00:00
parent 4110c9ad99
commit 39c99ef76e
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/mzscheme/src/portfun.c
View File

@ -2350,14 +2350,16 @@ static Scheme_Object *sch_pipe(int argc, Scheme_Object **args)
if (argc == 1) { if (argc == 1) {
Scheme_Object *o = args[0]; Scheme_Object *o = args[0];
if ((SCHEME_INTP(o) || SCHEME_BIGNUMP(o)) if (SCHEME_FALSEP(o)) {
bufmax = 0;
} else if ((SCHEME_INTP(o) || SCHEME_BIGNUMP(o))
&& SCHEME_TRUEP(scheme_positive_p(1, args))) { && SCHEME_TRUEP(scheme_positive_p(1, args))) {
if (SCHEME_INTP(o)) if (SCHEME_INTP(o))
bufmax = SCHEME_INT_VAL(o); bufmax = SCHEME_INT_VAL(o);
else else
bufmax = 0; bufmax = 0;
} else { } else {
scheme_wrong_type("make-pipe", "positive exact integer", 0, argc, args); scheme_wrong_type("make-pipe", "positive exact integer or #f", 0, argc, args);
return NULL; return NULL;
} }
} else } else