diff options
Diffstat (limited to '')
5 files changed, 17 insertions, 17 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive.lux b/stdlib/source/library/lux/tool/compiler/meta/archive.lux index 348a7ced9..1d605c120 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/archive.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/archive.lux @@ -111,18 +111,18 @@ (#try.Success [next (|> archive :representation - (update@ #..resolver (dictionary.put module [next #.None])) + (update@ #..resolver (dictionary.has module [next #.None])) (update@ #..next inc) :abstraction)])))) - (def: .public (add module [descriptor document output] archive) + (def: .public (has module [descriptor document output] archive) (-> Module [Descriptor (Document Any) Output] Archive (Try Archive)) (let [(^slots [#..resolver]) (:representation archive)] (case (dictionary.get module resolver) (#.Some [id #.None]) (#try.Success (|> archive :representation - (update@ #..resolver (dictionary.put module [id (#.Some [descriptor document output])])) + (update@ #..resolver (dictionary.has module [id (#.Some [descriptor document output])])) :abstraction)) (#.Some [id (#.Some [existing_descriptor existing_document existing_output])]) @@ -201,7 +201,7 @@ (list\fold (function (_ [module [id entry]] resolver) (case entry (#.Some _) - (dictionary.put module [id entry] resolver) + (dictionary.has module [id entry] resolver) #.None resolver)) @@ -280,7 +280,7 @@ (in (:abstraction {#next next #resolver (list\fold (function (_ [module id] archive) - (dictionary.put module [id #.None] archive)) + (dictionary.has module [id #.None] archive)) (get@ #resolver (:representation ..empty)) reservations)})))) ) diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive/artifact.lux b/stdlib/source/library/lux/tool/compiler/meta/archive/artifact.lux index 11aa363fd..e4240e404 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/archive/artifact.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/archive/artifact.lux @@ -75,7 +75,7 @@ :representation (update@ #artifacts (row.add {#id id #category (<tag> name)})) - (update@ #resolver (dictionary.put name id)) + (update@ #resolver (dictionary.has name id)) :abstraction)])) (def: .public (<fetch> registry) diff --git a/stdlib/source/library/lux/tool/compiler/meta/cache/dependency.lux b/stdlib/source/library/lux/tool/compiler/meta/cache/dependency.lux index 66a903ca1..fc6c26067 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/cache/dependency.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/cache/dependency.lux @@ -47,7 +47,7 @@ (def: .public graph (-> (List Dependency) Graph) (list\fold (function (_ [module imports] graph) - (dictionary.put module imports graph)) + (dictionary.has module imports graph)) ..empty)) (def: (ancestry archive) diff --git a/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux b/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux index a87c3840b..a1f263f05 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux @@ -251,7 +251,7 @@ output]) (do ! [value (\ host re_load context #.None directive)] - (in [(dictionary.put name value definitions) + (in [(dictionary.has name value definitions) [analysers synthesizers generators @@ -263,7 +263,7 @@ [.let [output (row.add [artifact_id #.None data] output)] value (\ host re_load context #.None directive)] (in [definitions - [(dictionary.put extension (:as analysis.Handler value) analysers) + [(dictionary.has extension (:as analysis.Handler value) analysers) synthesizers generators directives] @@ -275,7 +275,7 @@ value (\ host re_load context #.None directive)] (in [definitions [analysers - (dictionary.put extension (:as synthesis.Handler value) synthesizers) + (dictionary.has extension (:as synthesis.Handler value) synthesizers) generators directives] output])) @@ -287,7 +287,7 @@ (in [definitions [analysers synthesizers - (dictionary.put extension (:as generation.Handler value) generators) + (dictionary.has extension (:as generation.Handler value) generators) directives] output])) @@ -299,7 +299,7 @@ [analysers synthesizers generators - (dictionary.put extension (:as directive.Handler value) directives)] + (dictionary.has extension (:as directive.Handler value) directives)] output])) (#artifact.Custom name) @@ -393,7 +393,7 @@ (get@ #descriptor.references) set.list (list.any? purged?)) - (dictionary.put module_name module_id purge) + (dictionary.has module_name module_id purge) purge)))) (..initial_purge caches) load_order)) @@ -424,7 +424,7 @@ (list\map product.right) (monad.fold try.monad (function (_ [module [module_id [descriptor document]]] archive) - (archive.add module [descriptor document (: Output row.empty)] archive)) + (archive.has module [descriptor document (: Output row.empty)] archive)) archive) (\ try.monad map (dependency.load_order $.key)) (\ try.monad join) @@ -444,7 +444,7 @@ (do {! try.monad} [archive (monad.fold ! (function (_ [[module descriptor,document,output] _bundle] archive) - (archive.add module descriptor,document,output archive)) + (archive.has module descriptor,document,output archive)) archive loaded_caches) analysis_state (..analysis_state (get@ #static.host static) archive)] diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager/jvm.lux b/stdlib/source/library/lux/tool/compiler/meta/packager/jvm.lux index 993b2264d..06ef9b25b 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/packager/jvm.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/packager/jvm.lux @@ -227,12 +227,12 @@ (case (java/util/jar/JarOutputStream::putNextEntry (java/util/jar/JarEntry::new entry_path) sink) (#try.Failure error) (recur entries - (set.add entry_path duplicates) + (set.has entry_path duplicates) sink) (#try.Success _) (let [[entry_size entry_data] (read_jar_entry entry input)] - (recur (set.add entry_path entries) + (recur (set.has entry_path entries) duplicates (do_to sink (java/util/zip/ZipOutputStream::write entry_data +0 (.int entry_size)) |