diff options
| author | Eduardo Julian | 2022-01-25 21:26:50 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-01-25 21:26:50 -0400 |
| commit | 7661faaa22a253bb4703992b638038d96ead0ade (patch) | |
| tree | 748bca72a2aad0d33a4268ad0d0d39fa4e24b384 /stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux | |
| parent | 9a08039adfe40f76b9d5a5351005671c15b557bf (diff) | |
Bug fixes for eval in general and in Lux/Ruby.
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 "")))) |