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

remove redundant cdr in custom-port read callback checking

Browse Source 
svn: r5382
This commit is contained in:
Matthew Flatt 2007-01-17 22:52:00 +00:00
parent 08367229df
commit 0a4f02de79
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1320,7 +1320,7 @@ user_get_or_peek_bytes(Scheme_Input_Port *port,
r = user_read_result(peek ? "user port peek" : "user port read",
port, val, bstr, peek, nb,
1, !!uip->peek_proc, unless && SCHEME_CDR(unless), sinfo);
1, !!uip->peek_proc, !!unless, sinfo);
scheme_pop_break_enable(&cframe, 1);