diff options
author | Eduardo Julian | 2017-11-23 19:11:27 -0400 |
---|---|---|
committer | Eduardo Julian | 2017-11-23 19:11:27 -0400 |
commit | 74fd0966b60a3594b5f6d289d837207718352ef2 (patch) | |
tree | 95d4eb6a6eb0682c0e8b91abe64e2c470f7dc23f /new-luxc/source/program.lux | |
parent | 5a619fc3978d1ded629f7c255d1c1c672033ad54 (diff) |
- Added REPL.
Diffstat (limited to 'new-luxc/source/program.lux')
-rw-r--r-- | new-luxc/source/program.lux | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/new-luxc/source/program.lux b/new-luxc/source/program.lux index 761a6eabc..5708211fd 100644 --- a/new-luxc/source/program.lux +++ b/new-luxc/source/program.lux @@ -8,7 +8,8 @@ text/format) [io #- run] [cli #+ program: CLI]) - (luxc (lang [";L" translation]))) + (luxc [repl] + (lang [";L" translation]))) ## (type: Compilation ## {#program &;Path @@ -40,14 +41,14 @@ ## (exec (&compiler;compile-program program target sources) ## (io [])))) -(def: (or-crash! action) - (All [a] (-> (T;Task a) (P;Promise a))) +(def: (or-crash! failure-describer action) + (All [a] (-> Text (T;Task a) (P;Promise a))) (do P;Monad<Promise> [?output action] (case ?output (#e;Error error) (exec (log! (format "\n" - "Compilation failed:" "\n" + failure-describer "\n" error "\n")) ("lux io exit" 1)) |