From 74a835634fc9ee5457f3cc7109af069dad9f2d2f Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 11 Oct 2017 18:57:44 -0400
Subject: - Migrated new-luxc to latest version of stdlib. - Some refactoring.

---
 new-luxc/source/luxc/generator/host/jvm/inst.lux | 5 +++--
 1 file changed, 3 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 02027294a..aa9a852dd 100644
--- a/new-luxc/source/luxc/generator/host/jvm/inst.lux
+++ b/new-luxc/source/luxc/generator/host/jvm/inst.lux
@@ -2,8 +2,9 @@
   [lux #- char]
   (lux (control monad
                 ["p" parser])
-       (data text/format
+       (data [maybe]
              ["R" result]
+             text/format
              (coll [list "L/" Functor<List>]))
        [host #+ do-to]
        [macro]
@@ -262,7 +263,7 @@
           _ (loop [idx +0]
               (if (n.< num-labels idx)
                 (exec (host;array-write idx
-                                        (assume (list;nth idx labels))
+                                        (maybe;assume (list;nth idx labels))
                                         labels-array)
                   (recur (n.inc idx)))
                 []))]
-- 
cgit v1.2.3