diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/library/lux/tool/compiler/meta/archive.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive.lux b/stdlib/source/library/lux/tool/compiler/meta/archive.lux index 1d605c120..06a2d5ca8 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/archive.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/archive.lux @@ -92,7 +92,7 @@ (def: .public (id module archive) (-> Module Archive (Try ID)) (let [(^slots [#..resolver]) (:representation archive)] - (case (dictionary.get module resolver) + (case (dictionary.value module resolver) (#.Some [id _]) (#try.Success id) @@ -103,7 +103,7 @@ (def: .public (reserve module archive) (-> Module Archive (Try [ID Archive])) (let [(^slots [#..next #..resolver]) (:representation archive)] - (case (dictionary.get module resolver) + (case (dictionary.value module resolver) (#.Some _) (exception.except ..module_has_already_been_reserved [module]) @@ -118,7 +118,7 @@ (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) + (case (dictionary.value module resolver) (#.Some [id #.None]) (#try.Success (|> archive :representation @@ -126,7 +126,7 @@ :abstraction)) (#.Some [id (#.Some [existing_descriptor existing_document existing_output])]) - (if (is? document existing_document) + (if (same? document existing_document) ... TODO: Find out why this code allows for the same module to be added more than once. It looks fishy... (#try.Success archive) (exception.except ..cannot_replace_document [module existing_document document])) @@ -137,7 +137,7 @@ (def: .public (find module archive) (-> Module Archive (Try [Descriptor (Document Any) Output])) (let [(^slots [#..resolver]) (:representation archive)] - (case (dictionary.get module resolver) + (case (dictionary.value module resolver) (#.Some [id (#.Some entry)]) (#try.Success entry) @@ -170,7 +170,7 @@ (def: .public (reserved? archive module) (-> Archive Module Bit) (let [(^slots [#..resolver]) (:representation archive)] - (case (dictionary.get module resolver) + (case (dictionary.value module resolver) (#.Some [id _]) bit.yes |