From 84d7f9ccef221e9797929813af1094b335ba26e9 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 9 Aug 2018 23:39:17 -0400
Subject: - Fixes for eval. - Macro-expansion during analysis.
---
new-luxc/source/luxc/lang/macro.lux | 35 -----------------------------------
1 file changed, 35 deletions(-)
delete mode 100644 new-luxc/source/luxc/lang/macro.lux
(limited to 'new-luxc/source/luxc/lang/macro.lux')
diff --git a/new-luxc/source/luxc/lang/macro.lux b/new-luxc/source/luxc/lang/macro.lux
deleted file mode 100644
index 17ed2436b..000000000
--- a/new-luxc/source/luxc/lang/macro.lux
+++ /dev/null
@@ -1,35 +0,0 @@
-(.module:
- lux
- (lux (control [monad #+ do])
- (data ["e" error])
- [macro]
- [host])
- (luxc (lang [".L" host]
- (translation (jvm [".T" common])))))
-
-(for {"JVM" (as-is (host.import: java/lang/reflect/Method
- (invoke [Object (Array Object)] #try Object))
- (host.import: (java/lang/Class c)
- (getMethod [String (Array (Class Object))] #try Method))
- (host.import: java/lang/Object)
- (def: _object-class (Class Object) (host.class-for Object))
- (def: _apply-args
- (Array (Class Object))
- (|> (host.array (Class Object) +2)
- (host.array-write +0 _object-class)
- (host.array-write +1 _object-class)))
- (def: #export (expand macro inputs)
- (-> Macro (List Code) (Meta (List Code)))
- (do macro.Monad
- [class (commonT.load-class hostL.function-class)]
- (function (_ compiler)
- (do e.Monad
- [apply-method (Class::getMethod ["apply" _apply-args] class)
- output (Method::invoke [(:coerce Object macro)
- (|> (host.array Object +2)
- (host.array-write +0 (:coerce Object inputs))
- (host.array-write +1 (:coerce Object compiler)))]
- apply-method)]
- (:coerce (e.Error [Lux (List Code)])
- output))))))
- })
--
cgit v1.2.3