(read0): Swap args to Fmake_string.

[bpt/emacs.git] / src / lread.c

diff --git a/src/lread.c b/src/lread.c
index ec72ded..ee1f6be 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -1200,8 +1200,8 @@ read0 (readcharfun)
 
   val = read1 (readcharfun, &c, 0);
   if (c)
-    Fsignal (Qinvalid_read_syntax, Fcons (Fmake_string (make_number (c),
-                                                       make_number (1)),
+    Fsignal (Qinvalid_read_syntax, Fcons (Fmake_string (make_number (1),
+                                                       make_number (c)),
                                          Qnil));
 
   return val;