Fix type error (fixnum being used as a character)

feeley · Oct 17, 2015 · 9c06398 · 9c06398
1 parent 6abdb3c
commit 9c06398
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/include/stamp.h b/include/stamp.h
@@ -3,4 +3,4 @@
  */
 
 #define ___STAMP_YMD 20151017
-#define ___STAMP_HMS 163309
+#define ___STAMP_HMS 163936
diff --git a/lib/_io.scm b/lib/_io.scm
@@ -4237,7 +4237,7 @@
            0
            0
            max-length
-           ##max-char)))
+           (##integer->char ##max-char))))
     (##wr we obj)
     (##get-output-string port)))