Fix unget-byte and unget-char on catenated streams.

* stream.c (cat_unget_byte, cat_unget_char): Recursive
call to unget_byte and unget_char with reversed arguments.

1 files changed, 2 insertions, 2 deletions

diff --git a/stream.c b/stream.c
index 399d341e..0f806401 100644
--- a/stream.c
+++ b/stream.c
@@ -2896,7 +2896,7 @@ static val cat_unget_byte(val stream, int byte)
               stream, nao);
   } else {
     val stream = car(streams);
-    return unget_byte(stream, num_fast(byte));
+    return unget_byte(num_fast(byte), stream);
   }
 
   return nil;
@@ -2912,7 +2912,7 @@ static val cat_unget_char(val stream, val ch)
               stream, nao);
   } else {
     val stream = car(streams);
-    return unget_char(stream, ch);
+    return unget_char(ch, stream );
   }
 }