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:
Danny Milosavljevic 2019-05-30 22:11:37 +02:00 committed by Jan Nieuwenhuizen
parent 7670d6be38
commit a5f16861ab
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 1 additions and 1 deletions

View File

@ -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)))