Re-named "lux/tool/compiler/host" to "lux/target".

14 files changed, 35 insertions, 52 deletions

diff --git a/stdlib/source/lux/tool/compiler/default/init.lux b/stdlib/source/lux/tool/compiler/default/init.lux
index 604fd8551..5cb857d65 100644
--- a/stdlib/source/lux/tool/compiler/default/init.lux
+++ b/stdlib/source/lux/tool/compiler/default/init.lux
@@ -1,5 +1,6 @@
 (.module:
   [lux (#- Module)
+   ["@" target]
    [type (#+ :share)]
    [abstract
     ["." monad (#+ do)]]
@@ -24,7 +25,6 @@
     ["#." analysis]
     ["#." synthesis]
     ["#." statement (#+ Requirements)]
-    ["#." host]
     ["#." phase
      [macro (#+ Expander)]
      [".P" analysis
@@ -45,16 +45,16 @@
 
 (def: #export info
   Info
-  {#.target (`` (for {(~~ (static ///host.common-lisp)) ///host.common-lisp
-                      (~~ (static ///host.js))          ///host.js
-                      (~~ (static ///host.old))         ///host.jvm
-                      (~~ (static ///host.jvm))         ///host.jvm
-                      (~~ (static ///host.lua))         ///host.lua
-                      (~~ (static ///host.php))         ///host.php
-                      (~~ (static ///host.python))      ///host.python
-                      (~~ (static ///host.r))           ///host.r
-                      (~~ (static ///host.ruby))        ///host.ruby
-                      (~~ (static ///host.scheme))      ///host.scheme}))
+  {#.target (`` (for {(~~ (static @.common-lisp)) @.common-lisp
+                      (~~ (static @.js))          @.js
+                      (~~ (static @.old))         @.jvm
+                      (~~ (static @.jvm))         @.jvm
+                      (~~ (static @.lua))         @.lua
+                      (~~ (static @.php))         @.php
+                      (~~ (static @.python))      @.python
+                      (~~ (static @.r))           @.r
+                      (~~ (static @.ruby))        @.ruby
+                      (~~ (static @.scheme))      @.scheme}))
    #.version //.version
    #.mode #.Build})
 
diff --git a/stdlib/source/lux/tool/compiler/host.lux b/stdlib/source/lux/tool/compiler/host.lux
deleted file mode 100644
index 06c4c7efe..000000000
--- a/stdlib/source/lux/tool/compiler/host.lux
+++ /dev/null
@@ -1,21 +0,0 @@
-(.module:
-  lux)
-
-(type: #export Host Text)
-
-(template [<name> <value>]
-  [(def: #export <name> Host <value>)]
-
-  ## TODO: Delete ASAP
-  [old "{old}"]
-  
-  [common-lisp "Common Lisp"]
-  [js          "JavaScript"]
-  [jvm         "JVM"]
-  [lua         "Lua"]
-  [php         "PHP"]
-  [python      "Python"]
-  [r           "R"]
-  [ruby        "Ruby"]
-  [scheme      "Scheme"]
-  )
diff --git a/stdlib/source/lux/tool/compiler/phase/extension/analysis.lux b/stdlib/source/lux/tool/compiler/phase/extension/analysis.lux
index 446e769f1..ca2d75e4d 100644
--- a/stdlib/source/lux/tool/compiler/phase/extension/analysis.lux
+++ b/stdlib/source/lux/tool/compiler/phase/extension/analysis.lux
@@ -1,11 +1,9 @@
 (.`` (.module:
        [lux #*
+        ["@" target]
         [data
          [collection
-          ["." dictionary]]]
-        [tool
-         [compiler
-          ["@" host]]]]
+          ["." dictionary]]]]
        [////
         [default
          [evaluation (#+ Eval)]]
diff --git a/stdlib/source/lux/tool/compiler/phase/generation/js/runtime.lux b/stdlib/source/lux/tool/compiler/phase/generation/js/runtime.lux
index c94b68337..314fe300d 100644
--- a/stdlib/source/lux/tool/compiler/phase/generation/js/runtime.lux
+++ b/stdlib/source/lux/tool/compiler/phase/generation/js/runtime.lux
@@ -739,7 +739,8 @@
   (Operation Any)
   (///.with-buffer
     (do ////.monad
-      [_ (///.save! ["" ..prefix] ($_ _.then
-                                      _.use-strict
-                                      ..runtime))]
+      [_ (///.save! true ["" ..prefix]
+                    ($_ _.then
+                        _.use-strict
+                        ..runtime))]
       (///.save-buffer! ..artifact))))
diff --git a/stdlib/source/lux/tool/compiler/phase/generation/lua/function.lux b/stdlib/source/lux/tool/compiler/phase/generation/lua/function.lux
index 517af6550..9fa8a3c7d 100644
--- a/stdlib/source/lux/tool/compiler/phase/generation/lua/function.lux
+++ b/stdlib/source/lux/tool/compiler/phase/generation/lua/function.lux
@@ -39,14 +39,14 @@
   (case inits
     #.Nil
     (do ////.monad
-      [_ (///.save! ["" function-name]
+      [_ (///.save! true ["" function-name]
                     function-definition)]
       (wrap (|> (_.var function-name) (_.apply/* inits))))
 
     _
     (do ////.monad
       [@closure (:: @ map _.var (///.gensym "closure"))
-       _ (///.save! ["" (_.code @closure)]
+       _ (///.save! true ["" (_.code @closure)]
                     (_.function @closure
                       (|> (list.enumerate inits)
                           (list@map (|>> product.left ..capture)))
diff --git a/stdlib/source/lux/tool/compiler/phase/generation/lua/loop.lux b/stdlib/source/lux/tool/compiler/phase/generation/lua/loop.lux
index 41ebb4766..39c983dcc 100644
--- a/stdlib/source/lux/tool/compiler/phase/generation/lua/loop.lux
+++ b/stdlib/source/lux/tool/compiler/phase/generation/lua/loop.lux
@@ -25,7 +25,7 @@
      initsO+ (monad.map @ generate initsS+)
      bodyO (///.with-anchor @loop
              (generate bodyS))
-     _ (///.save! ["" (_.code @loop)]
+     _ (///.save! true ["" (_.code @loop)]
                   (_.function @loop (|> initsS+
                                         list.enumerate
                                         (list@map (|>> product.left (n/+ start) //case.register)))
diff --git a/stdlib/source/lux/tool/compiler/phase/generation/lua/runtime.lux b/stdlib/source/lux/tool/compiler/phase/generation/lua/runtime.lux
index 6eeddc5ff..57f8e11df 100644
--- a/stdlib/source/lux/tool/compiler/phase/generation/lua/runtime.lux
+++ b/stdlib/source/lux/tool/compiler/phase/generation/lua/runtime.lux
@@ -358,5 +358,6 @@
   (Operation Any)
   (///.with-buffer
     (do ////.monad
-      [_ (///.save! ["" ..prefix] ..runtime)]
+      [_ (///.save! true ["" ..prefix]
+                    ..runtime)]
       (///.save-buffer! ..artifact))))
diff --git a/stdlib/source/lux/tool/compiler/phase/generation/php/runtime.lux b/stdlib/source/lux/tool/compiler/phase/generation/php/runtime.lux
index e29b7622a..8d3a2138a 100644
--- a/stdlib/source/lux/tool/compiler/phase/generation/php/runtime.lux
+++ b/stdlib/source/lux/tool/compiler/phase/generation/php/runtime.lux
@@ -301,5 +301,6 @@
   (Operation Any)
   (///.with-buffer
     (do ////.monad
-      [_ (///.save! true ["" ..prefix] ..runtime)]
+      [_ (///.save! true ["" ..prefix]
+                    ..runtime)]
       (///.save-buffer! ..artifact))))
diff --git a/stdlib/source/lux/tool/compiler/phase/generation/python/case.lux b/stdlib/source/lux/tool/compiler/phase/generation/python/case.lux
index 3aa95d673..dc908eae7 100644
--- a/stdlib/source/lux/tool/compiler/phase/generation/python/case.lux
+++ b/stdlib/source/lux/tool/compiler/phase/generation/python/case.lux
@@ -230,7 +230,7 @@
                                             
                                             (#reference.Foreign register)
                                             (..capture register)))))]
-     _ (///.save! ["" (_.code @case)]
+     _ (///.save! true ["" (_.code @case)]
                   (_.def @case (list& @init @dependencies+)
                          ($_ _.then
                              (_.set (list @cursor) (_.list (list @init)))
diff --git a/stdlib/source/lux/tool/compiler/phase/generation/python/function.lux b/stdlib/source/lux/tool/compiler/phase/generation/python/function.lux
index a5f918dc1..2631f629c 100644
--- a/stdlib/source/lux/tool/compiler/phase/generation/python/function.lux
+++ b/stdlib/source/lux/tool/compiler/phase/generation/python/function.lux
@@ -39,14 +39,14 @@
   (case inits
     #.Nil
     (do ////.monad
-      [_ (///.save! ["" function-name]
+      [_ (///.save! true ["" function-name]
                     function-definition)]
       (wrap (_.apply/* (_.var function-name) inits)))
 
     _
     (do ////.monad
       [@closure (:: @ map _.var (///.gensym "closure"))
-       _ (///.save! ["" (_.code @closure)]
+       _ (///.save! true ["" (_.code @closure)]
                     (_.def @closure
                            (|> (list.enumerate inits)
                                (list@map (|>> product.left ..capture)))
diff --git a/stdlib/source/lux/tool/compiler/phase/generation/python/loop.lux b/stdlib/source/lux/tool/compiler/phase/generation/python/loop.lux
index 12d83b756..9dae1b6dc 100644
--- a/stdlib/source/lux/tool/compiler/phase/generation/python/loop.lux
+++ b/stdlib/source/lux/tool/compiler/phase/generation/python/loop.lux
@@ -25,7 +25,7 @@
      initsO+ (monad.map @ generate initsS+)
      bodyO (///.with-anchor @loop
              (generate bodyS))
-     _ (///.save! ["" (_.code @loop)]
+     _ (///.save! true ["" (_.code @loop)]
                   (_.def @loop (|> initsS+
                                    list.enumerate
                                    (list@map (|>> product.left (n/+ start) //case.register)))
diff --git a/stdlib/source/lux/tool/compiler/phase/generation/python/runtime.lux b/stdlib/source/lux/tool/compiler/phase/generation/python/runtime.lux
index 44b9d290f..b2135a625 100644
--- a/stdlib/source/lux/tool/compiler/phase/generation/python/runtime.lux
+++ b/stdlib/source/lux/tool/compiler/phase/generation/python/runtime.lux
@@ -364,6 +364,7 @@
   (Operation Any)
   (///.with-buffer
     (do ////.monad
-      [_ (///.save! ["" ..prefix] (<| (_.comment "-*- coding: utf-8 -*-")
-                                      ..runtime))]
+      [_ (///.save! true ["" ..prefix]
+                    (<| (_.comment "-*- coding: utf-8 -*-")
+                        ..runtime))]
       (///.save-buffer! ..artifact))))
diff --git a/stdlib/source/lux/tool/compiler/phase/generation/ruby/runtime.lux b/stdlib/source/lux/tool/compiler/phase/generation/ruby/runtime.lux
index 8858e9d4f..b63571ddc 100644
--- a/stdlib/source/lux/tool/compiler/phase/generation/ruby/runtime.lux
+++ b/stdlib/source/lux/tool/compiler/phase/generation/ruby/runtime.lux
@@ -290,5 +290,6 @@
   (Operation Any)
   (///.with-buffer
     (do ////.monad
-      [_ (///.save! ["" ..prefix] ..runtime)]
+      [_ (///.save! true ["" ..prefix]
+                    ..runtime)]
       (///.save-buffer! ..artifact))))
diff --git a/stdlib/source/lux/tool/compiler/phase/generation/scheme/runtime.lux b/stdlib/source/lux/tool/compiler/phase/generation/scheme/runtime.lux
index bda2f7783..c22906d2d 100644
--- a/stdlib/source/lux/tool/compiler/phase/generation/scheme/runtime.lux
+++ b/stdlib/source/lux/tool/compiler/phase/generation/scheme/runtime.lux
@@ -319,5 +319,6 @@
   (Operation Any)
   (///.with-buffer
     (do ////.monad
-      [_ (///.save! ["" ..prefix] ..runtime)]
+      [_ (///.save! true ["" ..prefix]
+                    ..runtime)]
       (///.save-buffer! ""))))