diff options
| author | Eduardo Julian | 2017-06-14 17:56:24 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-06-14 17:56:24 -0400 |
| commit | c7e53036704b1a89b740c023c7b4bcc74b7e956a (patch) | |
| tree | fa75c05b4233e654c17edd4de2d2b0b6fb3cece9 /new-luxc/source/luxc/generator/base.jvm.lux | |
| parent | 9cd2927a4f6175784e081d6b512d3e900c8069e7 (diff) | |
- Heavy refactoring.
Diffstat (limited to 'new-luxc/source/luxc/generator/base.jvm.lux')
| -rw-r--r-- | new-luxc/source/luxc/generator/base.jvm.lux | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/new-luxc/source/luxc/generator/base.jvm.lux b/new-luxc/source/luxc/generator/base.jvm.lux deleted file mode 100644 index 01a97aec4..000000000 --- a/new-luxc/source/luxc/generator/base.jvm.lux +++ /dev/null @@ -1,29 +0,0 @@ -(;module: - lux - (lux (control monad) - [io #- run] - (concurrency ["A" atom]) - (data [text] - text/format) - host) - (luxc ["&" base])) - -(jvm-import java.lang.Class) -(jvm-import java.lang.ClassLoader) -(jvm-import org.objectweb.asm.MethodVisitor) - -(type: Blob Byte-Array) - -(type: JVM-State - {#visitor (Maybe MethodVisitor) - #loader ClassLoader - #store (A;Atom (D;Dict Text Blob)) - }) - -(def: host-state - JVM-State - (let [store (A;new (D;new text;Hash<Text>))] - {#visitor #;None - #loader (memory-class-loader store) - #store store - })) |