This commit is contained in:
Jan Nieuwenhuizen 2019-10-26 16:15:03 +02:00
parent ce9bd2a891
commit 606675ae8d
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 3 additions and 2 deletions

View File

@ -195,8 +195,9 @@ current_input_port ()
SCM x = g_ports;
while (x != 0)
{
if (PORT (CAR (x)) == __stdin)
return CAR (x);
SCM a = CAR (x);
if (PORT (a) == __stdin)
return a;
x = CDR (x);
}
return CAR (x);