diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/target/jvm/loader.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/lux/target/jvm/loader.lux b/stdlib/source/lux/target/jvm/loader.lux index e17496ffb..14c19bb86 100644 --- a/stdlib/source/lux/target/jvm/loader.lux +++ b/stdlib/source/lux/target/jvm/loader.lux @@ -122,11 +122,11 @@ (def: #export (store name bytecode library) (-> Text Binary Library (IO (Try Any))) - (do {@ io.monad} + (do {! io.monad} [library' (atom.read library)] (if (dictionary.contains? name library') (wrap (exception.throw ..already-stored name)) - (do @ + (do ! [_ (atom.update (dictionary.put name bytecode) library)] (wrap (#try.Success [])))))) |