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.
This commit is contained in:
parent
7670d6be38
commit
a5f16861ab
|
@ -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)))
|
||||
|
|
Loading…
Reference in a new issue