diff options
Diffstat (limited to 'stdlib/source/library/lux/debug.lux')
-rw-r--r-- | stdlib/source/library/lux/debug.lux | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/stdlib/source/library/lux/debug.lux b/stdlib/source/library/lux/debug.lux index d033bd3f0..96ccfe30e 100644 --- a/stdlib/source/library/lux/debug.lux +++ b/stdlib/source/library/lux/debug.lux @@ -136,7 +136,7 @@ (`` (|>> (:as (array.Array Any)) <adaption> array.list - (list\map inspection) + (list\each inspection) (text.interposed " ") (text.enclosed ["[" "]"]))))) @@ -549,7 +549,7 @@ (<>.either (<>.and <code>.local_identifier (\ <>.monad in #.None)) (<code>.record (<>.and <code>.local_identifier - (\ <>.monad map (|>> #.Some) <code>.any))))) + (\ <>.monad each (|>> #.Some) <code>.any))))) (exception: .public (unknown_local_binding {name Text}) (exception.report @@ -573,25 +573,25 @@ #.End (|> environment dictionary.keys - (list\map (function (_ local) [local #.None])) + (list\each (function (_ local) [local #.None])) in) _ - (monad.map ! (function (_ [name format]) - (if (dictionary.key? environment name) - (in [name format]) - (function.constant (exception.except ..unknown_local_binding [name])))) - targets)))] + (monad.each ! (function (_ [name format]) + (if (dictionary.key? environment name) + (in [name format]) + (function.constant (exception.except ..unknown_local_binding [name])))) + targets)))] (in (list (` (..log! ("lux text concat" (~ (code.text (%.format (%.location location) text.new_line))) ((~! exception.report) - (~+ (list\map (function (_ [name format]) - (let [format (case format - #.None - (` (~! ..inspection)) - - (#.Some format) - format)] - (` [(~ (code.text name)) - ((~ format) (~ (code.local_identifier name)))]))) - targets)))))))))) + (~+ (list\each (function (_ [name format]) + (let [format (case format + #.None + (` (~! ..inspection)) + + (#.Some format) + format)] + (` [(~ (code.text name)) + ((~ format) (~ (code.local_identifier name)))]))) + targets)))))))))) |