mescc: Put char's ASCII code into register, not char.
authorDanny Milosavljevic <dannym@scratchpost.org>
Thu, 30 May 2019 20:11:37 +0000 (22:11 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Thu, 30 May 2019 20:11:37 +0000 (22:11 +0200)
* module/mescc/compile.scm (expr-register): Put char's ASCII code into
register, not char.

module/mescc/compile.scm

index 39b352c09b97bba9a0222141aa4a7815a5a0bddf..ba6900a851d567ab7ce2b468774d9e37a1a66dba 100644 (file)
 
         (,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)))