diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/library/lux/debug.lux | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/stdlib/source/library/lux/debug.lux b/stdlib/source/library/lux/debug.lux index 0fbd4657a..cc09e996e 100644 --- a/stdlib/source/library/lux/debug.lux +++ b/stdlib/source/library/lux/debug.lux @@ -1,6 +1,6 @@ (.module: [library - [lux (#- type) + [lux (#- type private) ["@" target] ["." type] ["." ffi (#+ import:)] @@ -140,7 +140,7 @@ (text.join_with " ") (text.enclosed ["[" "]"]))))) -(def: #export (inspection value) +(def: .public (inspection value) Inspector (with_expansions [<jvm> (let [object (:as java/lang/Object value)] (`` (<| (~~ (template [<class> <processing>] @@ -378,7 +378,7 @@ )) }))) -(exception: #export (cannot_represent_value {type Type}) +(exception: .public (cannot_represent_value {type Type}) (exception.report ["Type" (%.type type)])) @@ -511,7 +511,7 @@ (<>.failure "") )))) -(def: #export (representation type value) +(def: .public (representation type value) (-> Type Any (Try Text)) (case (<type>.run ..representation_parser type) (#try.Success representation) @@ -520,23 +520,23 @@ (#try.Failure _) (exception.except ..cannot_represent_value type))) -(syntax: #export (private {definition <code>.identifier}) +(syntax: .public (private {definition <code>.identifier}) (let [[module _] definition] (in (list (` ("lux in-module" (~ (code.text module)) (~ (code.identifier definition)))))))) -(def: #export (log! message) +(def: .public (log! message) {#.doc "Logs message to standard output."} (-> Text Any) ("lux io log" message)) -(exception: #export (type_hole {location Location} {type Type}) +(exception: .public (type_hole {location Location} {type Type}) (exception.report ["Location" (%.location location)] ["Type" (%.type type)])) -(syntax: #export (:hole) +(syntax: .public (:hole) (do meta.monad [location meta.location expectedT meta.expected_type] @@ -552,11 +552,11 @@ (<code>.record (<>.and <code>.local_identifier (\ <>.monad map (|>> #.Some) <code>.any))))) -(exception: #export (unknown_local_binding {name Text}) +(exception: .public (unknown_local_binding {name Text}) (exception.report ["Name" (%.text name)])) -(syntax: #export (here {targets (: (<code>.Parser (List Target)) +(syntax: .public (here {targets (: (<code>.Parser (List Target)) (|> ..target <>.some (<>.else (list))))}) |