From 8787650c4b1641832db9df2c35bc3046e886220e Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Sun, 6 May 2018 00:45:45 -0400 Subject: - Updated new-luxc to the latest stdlib changes. --- new-luxc/source/luxc/lang/translation/jvm/common.jvm.lux | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'new-luxc/source/luxc/lang/translation/jvm/common.jvm.lux') diff --git a/new-luxc/source/luxc/lang/translation/jvm/common.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/common.jvm.lux index 579eb565c..524433214 100644 --- a/new-luxc/source/luxc/lang/translation/jvm/common.jvm.lux +++ b/new-luxc/source/luxc/lang/translation/jvm/common.jvm.lux @@ -7,7 +7,7 @@ (data ["e" error #+ Error] [text "text/" Hash] text/format - (coll [dict #+ Dict])) + (coll (dictionary ["dict" unordered #+ Dict]))) [macro] [host] (world [blob #+ Blob] @@ -66,13 +66,13 @@ (case (action (update@ #.host (|>> (:! Host) (set@ #artifacts (dict.new text.Hash)) - (:! Void)) + (:! Bottom)) compiler)) (#e.Success [compiler' output]) (#e.Success [(update@ #.host (|>> (:! Host) (set@ #artifacts (|> (get@ #.host compiler) (:! Host) (get@ #artifacts))) - (:! Void)) + (:! Bottom)) compiler') [(|> compiler' (get@ #.host) (:! Host) (get@ #artifacts)) output]]) @@ -81,19 +81,19 @@ (#e.Error error)))) (def: #export (record-artifact name content) - (-> Text Blob (Meta Unit)) + (-> Text Blob (Meta Top)) (function (_ compiler) (if (|> compiler (get@ #.host) (:! Host) (get@ #artifacts) (dict.contains? name)) (ex.throw Cannot-Overwrite-Artifact name) (#e.Success [(update@ #.host (|>> (:! Host) (update@ #artifacts (dict.put name content)) - (:! Void)) + (:! Bottom)) compiler) []])))) (def: #export (store-class name byte-code) - (-> Text Bytecode (Meta Unit)) + (-> Text Bytecode (Meta Top)) (function (_ compiler) (let [store (|> (get@ #.host compiler) (:! Host) -- cgit v1.2.3