Fixes for the "with_expansions" macro.

1 files changed, 4 insertions, 4 deletions

diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux b/stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux
index 243ee7653..294e31ecc 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux
@@ -79,14 +79,14 @@
   (-> archive.ID file.Path)
   (|>> %.nat (text.suffix ".rb")))
 
-(def: (write_module mapping necessary_dependencies [module [module_id [descriptor document output registry]]] sink)
+(def: (write_module mapping necessary_dependencies [module [module_id entry]] sink)
   (-> (Dictionary Module archive.ID) (Set Context)
       [Module [archive.ID [Descriptor (Document .Module) Output Registry]]]
       (List [archive.ID [Text Binary]])
       (Try (List [archive.ID [Text Binary]])))
   (do [! try.monad]
     [bundle (: (Try (Maybe _.Statement))
-               (..bundle_module module module_id necessary_dependencies output))]
+               (..bundle_module module module_id necessary_dependencies (value@ archive.#output entry)))]
     (case bundle
       {.#None}
       (in sink)
@@ -105,7 +105,7 @@
 
 (def: module_id_mapping
   (-> (Order .Module) (Dictionary Module archive.ID))
-  (|>> (list#each (function (_ [module [module_id [descriptor document output]]])
+  (|>> (list#each (function (_ [module [module_id entry]])
                     [module module_id]))
        (dictionary.of_list text.hash)))
 
@@ -124,7 +124,7 @@
            imports (|> order
                        (list.only (|>> product.right product.left (set.member? included_modules)))
                        list.reversed
-                       (list#each (function (_ [module [module_id [descriptor document output registry]]])
+                       (list#each (function (_ [module [module_id entry]])
                                     (let [relative_path (_.do "gsub" (list (_.string main_file)
                                                                            (_.string (..module_file module_id)))
                                                           {.#None}