shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Update eval.c

--- a/src/runtime/eval.c

+++ b/src/runtime/eval.c

@@ -1852,7 +1852,7 @@

 mkString(const char *astr, size_t len)

 {

   NODEPTR n, nc;

-  const unsigned char *str = (u_char*)astr; /* no sign bits, please */

+  const unsigned char *str = (unsigned char*)astr; /* no sign bits, please */

   n = mkNil();

   for(size_t i = len; i > 0; i--) {

-- 

⑨