mescc: Put char's ASCII code into register, not char.

* module/mescc/compile.scm (expr-register): Put char's ASCII code into
register, not char.

diff --git a/module/mescc/compile.scm b/module/mescc/compile.scm
index 39b352c09b97bba9a0222141aa4a7815a5a0bddf..ba6900a851d567ab7ce2b468774d9e37a1a66dba 100644 (file)
--- a/module/mescc/compile.scm
+++ b/module/mescc/compile.scm
@@ -942,7 +942,7 @@
 
         (,char (guard (char? char))
                (let ((info (allocate-register info)))
-                 (append-text info (wrap-as (as info 'value->r char)))))
+                 (append-text info (wrap-as (as info 'value->r (char->integer char))))))
 
         ((p-expr (ident ,name))
          (let ((info (allocate-register info)))