aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/compositor.lux
diff options
context:
space:
mode:
authorEduardo Julian2021-01-09 12:58:50 -0400
committerEduardo Julian2021-01-09 12:58:50 -0400
commit706ce9e4916b65c4df5101bd3cc1b4da3b2057af (patch)
treefe3f3f6b8d6c6bc5b23045a3113a4f93e6f9b04c /stdlib/source/program/compositor.lux
parent1ce30d50abaa330ab2125b110e245de6deda27c7 (diff)
Turned I64 and variant creation functions into constructors for JS.
Diffstat (limited to 'stdlib/source/program/compositor.lux')
-rw-r--r--stdlib/source/program/compositor.lux11
1 files changed, 6 insertions, 5 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index 2788783cc..63325ff0b 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -1,6 +1,7 @@
(.module:
[lux (#- Module)
[type (#+ :share)]
+ ["." debug]
["@" target (#+ Host)]
[abstract
[monad (#+ Monad do)]]
@@ -62,9 +63,9 @@
[?output action]
(case ?output
(#try.Failure error)
- (exec (log! (format text.new_line
- failure_description text.new_line
- error text.new_line))
+ (exec (debug.log! (format text.new_line
+ failure_description text.new_line
+ error text.new_line))
(io.run (\ world/program.default exit +1)))
(#try.Success output)
@@ -141,14 +142,14 @@
_ (ioW.freeze (get@ #platform.&file_system platform) static archive)
program_context (promise\wrap ($/program.context archive))
_ (promise.future (..package! io.monad file.default packager,package static archive program_context))]
- (wrap (log! "Compilation complete!"))))
+ (wrap (debug.log! "Compilation complete!"))))
(#/cli.Export export)
(<| (or_crash! "Export failed:")
(do (try.with promise.monad)
[_ (/export.export (get@ #platform.&file_system platform)
export)]
- (wrap (log! "Export complete!"))))
+ (wrap (debug.log! "Export complete!"))))
(#/cli.Interpretation interpretation)
## TODO: Fix the interpreter...