diff options
| author | Eduardo Julian | 2021-08-19 04:59:06 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-08-19 04:59:06 -0400 |
| commit | d772fe99d5d4990c6774481fb64d12280cdb6aae (patch) | |
| tree | 209a2ce3b8e896be15db40bc58db830a5304b4f9 /lux-jvm/source/program.lux | |
| parent | e00ba096c8837abe85d366e0c1293c09dbe84d81 (diff) | |
Enabled compile-time code evaluation (i.e. "eval" function).
Diffstat (limited to 'lux-jvm/source/program.lux')
| -rw-r--r-- | lux-jvm/source/program.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lux-jvm/source/program.lux b/lux-jvm/source/program.lux index deef09f36..242d0553e 100644 --- a/lux-jvm/source/program.lux +++ b/lux-jvm/source/program.lux @@ -208,7 +208,7 @@ (write! "java.lang.Object" 2 $state)))))))) (def: (phase_wrapper archive) - (-> Archive (generation.Operation _.Anchor _.Inst _.Definition platform.Phase_Wrapper)) + (-> Archive (generation.Operation _.Anchor _.Inst _.Definition phase.Wrapper)) (do phase.monad [instanceG (function.function' (#.Some [0 (.nat -1)]) expression.translate archive [(list) 4 ..how_to_wrap_a_phase]) phase_wrapper (generation.evaluate! [0 (.nat -2)] instanceG)] @@ -244,7 +244,7 @@ #platform.write product.right}]))) (def: (extender phase_wrapper) - (-> platform.Phase_Wrapper Extender) + (-> phase.Wrapper Extender) ... TODO: Stop relying on coercions ASAP. (<| (:as Extender) (function (@self handler)) |