From a5f16861abcbc63582525ffdb42783740c880f00 Mon Sep 17 00:00:00 2001 From: Danny Milosavljevic Date: Thu, 30 May 2019 22:11:37 +0200 Subject: [PATCH] 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. --- module/mescc/compile.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/mescc/compile.scm b/module/mescc/compile.scm index 39b352c0..ba6900a8 100644 --- 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)))