diff options
author | Eduardo Julian | 2017-10-12 01:27:48 -0400 |
---|---|---|
committer | Eduardo Julian | 2017-10-12 01:27:48 -0400 |
commit | f3acc0d67e6cd4e7245c1e169a3c0469da4373a3 (patch) | |
tree | 9ed4796b085abb535ae6bee2f804166c30787691 /new-luxc/source/luxc/generator/procedure.jvm.lux | |
parent | 1594c2c866db18c6c5360ae2451ffd38b879fc49 (diff) |
- Compilation and tests for primitive conversions.
Diffstat (limited to '')
-rw-r--r-- | new-luxc/source/luxc/generator/procedure.jvm.lux | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/new-luxc/source/luxc/generator/procedure.jvm.lux b/new-luxc/source/luxc/generator/procedure.jvm.lux index 524513eb5..c564a668a 100644 --- a/new-luxc/source/luxc/generator/procedure.jvm.lux +++ b/new-luxc/source/luxc/generator/procedure.jvm.lux @@ -4,16 +4,22 @@ (lux (control [monad #+ do]) (data [maybe] text/format - (coll ["d" dict]))) + (coll [dict]))) (luxc ["&" base] (lang ["ls" synthesis]) - (generator (procedure ["&&;" common]) - (host ["$" jvm])))) + (generator (host ["$" jvm]))) + (. ["./;" common] + ["./;" host])) + +(def: procedures + ./common;Bundle + (|> ./common;procedures + (dict;merge ./host;procedures))) (def: #export (generate-procedure generate name args) (-> (-> ls;Synthesis (Lux $;Inst)) Text (List ls;Synthesis) (Lux $;Inst)) (<| (maybe;default (&;fail (format "Unknown procedure: " (%t name)))) (do maybe;Monad<Maybe> - [proc (d;get name &&common;procedures)] + [proc (dict;get name procedures)] (wrap (proc generate args))))) |