not all ports record source info

This commit is contained in:
Alex Shinn 2010-06-26 11:08:41 +09:00
parent dd0588d778
commit 0aa20e30b2

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_openp(p) = 1;
sexp_port_no_closep(p) = 0;
sexp_port_sourcep(p) = 1;
sexp_port_sourcep(p) = 0;
sexp_port_cookie(p) = SEXP_VOID;
return p;
}