Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-11 15:07:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

not all ports record source info

Browse source
This commit is contained in:
Alex Shinn 2010-06-26 11:08:41 +09:00
parent dd0588d778
commit 0aa20e30b2
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
sexp.c
View file

@ -1087,7 +1087,7 @@ sexp sexp_make_input_port (sexp ctx, FILE* in, sexp name) {
sexp_port_buf(p) = NULL; sexp_port_buf(p) = NULL;
sexp_port_openp(p) = 1; sexp_port_openp(p) = 1;
sexp_port_no_closep(p) = 0; sexp_port_no_closep(p) = 0;
sexp_port_sourcep(p) = 1; sexp_port_sourcep(p) = 0;
sexp_port_cookie(p) = SEXP_VOID; sexp_port_cookie(p) = SEXP_VOID;
return p; return p;
} }