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