diff options
Diffstat (limited to 'stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux')
| -rw-r--r-- | stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux | 9 |
1 files changed, 5 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 3009ce521..243ee7653 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux @@ -31,6 +31,7 @@ ["[0]" // {"+" Packager} [// ["[0]" archive {"+" Output} + [registry {"+" Registry}] ["[0]" descriptor {"+" Module Descriptor}] ["[0]" artifact] ["[0]" document {"+" Document}]] @@ -78,9 +79,9 @@ (-> archive.ID file.Path) (|>> %.nat (text.suffix ".rb"))) -(def: (write_module mapping necessary_dependencies [module [module_id [descriptor document output]]] sink) +(def: (write_module mapping necessary_dependencies [module [module_id [descriptor document output registry]]] sink) (-> (Dictionary Module archive.ID) (Set Context) - [Module [archive.ID [Descriptor (Document .Module) Output]]] + [Module [archive.ID [Descriptor (Document .Module) Output Registry]]] (List [archive.ID [Text Binary]]) (Try (List [archive.ID [Text Binary]]))) (do [! try.monad] @@ -103,7 +104,7 @@ "main.rb") (def: module_id_mapping - (-> Order (Dictionary Module archive.ID)) + (-> (Order .Module) (Dictionary Module archive.ID)) (|>> (list#each (function (_ [module [module_id [descriptor document output]]]) [module module_id])) (dictionary.of_list text.hash))) @@ -127,7 +128,7 @@ (let [relative_path (_.do "gsub" (list (_.string main_file) (_.string (..module_file module_id))) {.#None} - (_.local "__FILE__"))] + (: _.CVar (_.manual "__FILE__")))] (_.statement (_.require/1 relative_path))))) (list#mix _.then (_.comment "Lux program" (_.statement (_.string "")))) |