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/host/jvm/inst.lux | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/host/jvm/inst.lux b/new-luxc/source/luxc/lang/host/jvm/inst.lux
index d8360d4d7..7329dec1a 100644
--- a/new-luxc/source/luxc/lang/host/jvm/inst.lux
+++ b/new-luxc/source/luxc/lang/host/jvm/inst.lux
@@ -4,18 +4,19 @@
     [monad (#+ do)]]
    [control
     ["." function]
-    ["p" parser]]
+    ["p" parser
+     ["s" code]]]
    [data
     ["." maybe]
     ["." error]
     [text
      format]
     [collection
-     ["." list ("#/." functor)]]]
+     ["." list ("#@." functor)]]]
    ["." host (#+ import: do-to)]
    [macro
     ["." code]
-    ["s" syntax (#+ syntax:)]]
+    [syntax (#+ syntax:)]]
    [tool
     [compiler
      [phase (#+ Operation)]]]]
@@ -28,7 +29,7 @@
 
 (syntax: (declare {codes (p.many s.local-identifier)})
   (|> codes
-      (list/map (function (_ code) (` ((~' #static) (~ (code.local-identifier code)) (~' int)))))
+      (list@map (function (_ code) (` ((~' #static) (~ (code.local-identifier code)) (~' int)))))
       wrap))
 
 (`` (import: org/objectweb/asm/Opcodes
-- 
cgit v1.2.3