From 75102dcfa7c2c0afd32cb5bf5ac012df2db6a7a1 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 5 Jan 2021 07:55:22 -0400
Subject: Added lexically-scoped templates.

---
 .../lux/tool/compiler/meta/packager/script.lux     | 34 +++++++++++-----------
 1 file changed, 17 insertions(+), 17 deletions(-)

(limited to 'stdlib/source/lux/tool/compiler/meta/packager/script.lux')

diff --git a/stdlib/source/lux/tool/compiler/meta/packager/script.lux b/stdlib/source/lux/tool/compiler/meta/packager/script.lux
index 543b2682a..1dd13c664 100644
--- a/stdlib/source/lux/tool/compiler/meta/packager/script.lux
+++ b/stdlib/source/lux/tool/compiler/meta/packager/script.lux
@@ -38,50 +38,50 @@
 (type: (Action ! a)
   (! (Try a)))
 
-(def: (write-artifact monad file-system static context)
+(def: (write_artifact monad file_system static context)
   (All [!]
     (-> (Monad !) (file.System !) Static Context
         (Action ! Binary)))
   (do (try.with monad)
     [artifact (let [[module artifact] context]
-                (!.use (\ file-system file) [(io.artifact file-system static module (%.nat artifact))]))]
+                (!.use (\ file_system file) [(io.artifact file_system static module (%.nat artifact))]))]
     (!.use (\ artifact content) [])))
 
-(def: (write-module monad file-system static sequence [module artifacts] so-far)
+(def: (write_module monad file_system static sequence [module artifacts] so_far)
   (All [! directive]
     (-> (Monad !) (file.System !) Static (-> directive directive directive) [archive.ID (List artifact.ID)] directive
         (Action ! directive)))
   (monad.fold (:assume (try.with monad))
-              (function (_ artifact so-far)
+              (function (_ artifact so_far)
                 (do (try.with monad)
-                  [content (..write-artifact monad file-system static [module artifact])
+                  [content (..write_artifact monad file_system static [module artifact])
                    content (\ monad wrap (\ encoding.utf8 decode content))]
-                  (wrap (sequence so-far
+                  (wrap (sequence so_far
                                   (:share [directive]
                                           {directive
-                                           so-far}
+                                           so_far}
                                           {directive
                                            (:assume content)})))))
-              so-far
+              so_far
               artifacts))
 
-(def: #export (package header to-code sequence)
+(def: #export (package header to_code sequence)
   (All [! directive]
     (-> directive
         (-> directive Text)
         (-> directive directive directive)
         (Packager !)))
-  (function (package monad file-system static archive program)
+  (function (package monad file_system static archive program)
     (do {! (try.with monad)}
-      [cache (!.use (\ file-system directory) [(get@ #static.target static)])
-       order (\ monad wrap (dependency.load-order $.key archive))]
+      [cache (!.use (\ file_system directory) [(get@ #static.target static)])
+       order (\ monad wrap (dependency.load_order $.key archive))]
       (|> order
-          (list\map (function (_ [module [module-id [descriptor document]]])
-                      [module-id
+          (list\map (function (_ [module [module_id [descriptor document]]])
+                      [module_id
                        (|> descriptor
                            (get@ #descriptor.registry)
                            artifact.artifacts
-                           row.to-list
+                           row.to_list
                            (list\map (|>> (get@ #artifact.id))))]))
-          (monad.fold ! (..write-module monad file-system static sequence) header)
-          (\ ! map (|>> to-code (\ encoding.utf8 encode)))))))
+          (monad.fold ! (..write_module monad file_system static sequence) header)
+          (\ ! map (|>> to_code (\ encoding.utf8 encode)))))))
-- 
cgit v1.2.3