From c0acd75d41ed0e927ec318d4b12c0ec4f5f2e1d3 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 2 Jul 2017 15:52:36 -0400
Subject: - Adjusted compiler to the new lack of Char type. - WIP: PM/case
 synthesis.

---
 new-luxc/source/luxc/generator/host/jvm/inst.lux | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'new-luxc/source/luxc/generator/host/jvm/inst.lux')

diff --git a/new-luxc/source/luxc/generator/host/jvm/inst.lux b/new-luxc/source/luxc/generator/host/jvm/inst.lux
index 82b360883..824598ab8 100644
--- a/new-luxc/source/luxc/generator/host/jvm/inst.lux
+++ b/new-luxc/source/luxc/generator/host/jvm/inst.lux
@@ -1,5 +1,5 @@
 (;module:
-  lux
+  [lux #- char]
   (lux [host #+ jvm-import do-to])
   ["$" ..]
   (.. ["$t" type]))
@@ -122,7 +122,7 @@
   [int     Int  host;l2i]
   [long    Int  id]
   [double  Real id]
-  [char    Char id]
+  [char    Nat  (|>. nat-to-int host;l2i host;i2c)]
   [string  Text id]
   )
 
-- 
cgit v1.2.3