From f2c0473640e8029f27797f6ecf21662dddb0685b Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 24 Apr 2019 21:28:56 -0400
Subject: WIP: PHP compiler.

---
 new-luxc/source/luxc/lang/translation/jvm/procedure/host.lux | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'new-luxc/source/luxc/lang/translation/jvm/procedure')

diff --git a/new-luxc/source/luxc/lang/translation/jvm/procedure/host.lux b/new-luxc/source/luxc/lang/translation/jvm/procedure/host.lux
index d5a7bd3f5..c4bc66923 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/procedure/host.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/procedure/host.lux
@@ -3,14 +3,14 @@
    [abstract
     ["." monad (#+ do)]]
    [control
-    ["p" parser ("#@." monad)]
-    ["ex" exception (#+ exception:)]]
+    ["ex" exception (#+ exception:)]
+    ["p" parser ("#@." monad)
+     ["l" text]]]
    [data
     ["." product]
     ["." error]
     ["." text
-     format
-     ["l" lexer]]
+     format]
     [collection
      ["." list ("#@." functor)]
      ["." dictionary (#+ Dictionary)]]]
@@ -602,7 +602,7 @@
     (phase.throw extension.invalid-syntax [proc %synthesis inputs])))
 
 (def: base-type
-  (l.Lexer $.Type)
+  (l.Parser $.Type)
   ($_ p.either
       (p.after (l.this "boolean") (p@wrap _t.boolean))
       (p.after (l.this "byte") (p@wrap _t.byte))
@@ -618,7 +618,7 @@
       ))
 
 (def: java-type
-  (l.Lexer $.Type)
+  (l.Parser $.Type)
   (do p.monad
     [raw base-type
      nesting (p.some (l.this "[]"))]
-- 
cgit v1.2.3