From 3c95703b632f3ef4fb9327cb6a580a08629453a2 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 19 Apr 2016 06:33:33 -0700
Subject: Incorrect format args in string stream code.

* stream.c (string_in_unget_char): Missing
argument in uw_throwf call.
---
 stream.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/stream.c b/stream.c
index b4d9555e..6b234e22 100644
--- a/stream.c
+++ b/stream.c
@@ -1566,7 +1566,7 @@ static val string_in_unget_char(val stream, val ch)
   if (chr_str(s->string, pos) != ch)
     uw_throwf(file_error_s,
               lit("unget-char: ~s doesn't match the character that was read"),
-              nao);
+              ch, nao);
 
   set(mkloc(s->pos, stream), pos);
   return ch;
-- 
cgit v1.2.3