posix = 0
This commit is contained in:
parent
7cbfca3db2
commit
cb35345d85
|
@ -193,7 +193,7 @@ current_input_port ()
|
||||||
if (__stdin >= 0)
|
if (__stdin >= 0)
|
||||||
return make_number (__stdin);
|
return make_number (__stdin);
|
||||||
SCM x = g_ports;
|
SCM x = g_ports;
|
||||||
while (x)
|
while (x != 0)
|
||||||
{
|
{
|
||||||
if (PORT (CAR (x)) == __stdin)
|
if (PORT (CAR (x)) == __stdin)
|
||||||
return CAR (x);
|
return CAR (x);
|
||||||
|
|
Loading…
Reference in New Issue