diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/library/lux/target/common_lisp.lux | 4 | ||||
-rw-r--r-- | stdlib/source/library/lux/target/js.lux | 4 | ||||
-rw-r--r-- | stdlib/source/library/lux/target/jvm/bytecode.lux | 6 | ||||
-rw-r--r-- | stdlib/source/library/lux/target/jvm/encoding/name.lux | 4 | ||||
-rw-r--r-- | stdlib/source/library/lux/target/jvm/reflection.lux | 4 | ||||
-rw-r--r-- | stdlib/source/library/lux/target/jvm/type/lux.lux | 2 | ||||
-rw-r--r-- | stdlib/source/library/lux/target/lua.lux | 4 | ||||
-rw-r--r-- | stdlib/source/library/lux/target/php.lux | 4 | ||||
-rw-r--r-- | stdlib/source/library/lux/target/python.lux | 6 | ||||
-rw-r--r-- | stdlib/source/library/lux/target/r.lux | 4 | ||||
-rw-r--r-- | stdlib/source/library/lux/target/ruby.lux | 6 | ||||
-rw-r--r-- | stdlib/source/library/lux/target/scheme.lux | 4 |
12 files changed, 26 insertions, 26 deletions
diff --git a/stdlib/source/library/lux/target/common_lisp.lux b/stdlib/source/library/lux/target/common_lisp.lux index 2ebcb6a8e..a83162d28 100644 --- a/stdlib/source/library/lux/target/common_lisp.lux +++ b/stdlib/source/library/lux/target/common_lisp.lux @@ -115,7 +115,7 @@ (text.replace_once "E" "d" raw) (format raw "d0")))))) - (def: sanitize + (def: safe (-> Text Text) (`` (|>> (~~ (template [<find> <replace>] [(text.replace_all <find> <replace>)] @@ -134,7 +134,7 @@ (def: #export string (-> Text Literal) - (|>> ..sanitize + (|>> ..safe (text.enclose' text.double_quote) :abstraction)) diff --git a/stdlib/source/library/lux/target/js.lux b/stdlib/source/library/lux/target/js.lux index 26c2e7b41..d19bb0b8b 100644 --- a/stdlib/source/library/lux/target/js.lux +++ b/stdlib/source/library/lux/target/js.lux @@ -84,7 +84,7 @@ ## else (|> value %.frac ..expression)))) - (def: sanitize + (def: safe (-> Text Text) (`` (|>> (~~ (template [<replace> <find>] [(text.replace_all <find> <replace>)] @@ -104,7 +104,7 @@ (def: #export string (-> Text Literal) - (|>> ..sanitize + (|>> ..safe (text.enclose [text.double_quote text.double_quote]) :abstraction)) diff --git a/stdlib/source/library/lux/target/jvm/bytecode.lux b/stdlib/source/library/lux/target/jvm/bytecode.lux index 0d94ae9f1..ba09af5bb 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode.lux @@ -162,13 +162,13 @@ (: (Monad Try)) try.monad)) -(def: #export fail +(def: #export failure (-> Text Bytecode) (|>> #try.Failure function.constant)) (def: #export (throw exception value) (All [e] (-> (exception.Exception e) e Bytecode)) - (..fail (exception.construct exception value))) + (..failure (exception.construct exception value))) (def: #export (resolve environment bytecode) (All [a] (-> Environment (Bytecode a) (Resource [Environment (Row Exception) Instruction a]))) @@ -907,7 +907,7 @@ [>default (\ ! map ..big_jump (..jump @from @default)) >cases (|> @cases (monad.map ! (|>> (..jump @from) (\ ! map ..big_jump))) - (\ ! map (|>> (list.zip/2 (list\map product.left cases)))))] + (\ ! map (|>> (list.zipped/2 (list\map product.left cases)))))] (wrap [..no_exceptions (bytecode >default >cases)])) #.None diff --git a/stdlib/source/library/lux/target/jvm/encoding/name.lux b/stdlib/source/library/lux/target/jvm/encoding/name.lux index 5a1982d3e..02507ceb6 100644 --- a/stdlib/source/library/lux/target/jvm/encoding/name.lux +++ b/stdlib/source/library/lux/target/jvm/encoding/name.lux @@ -31,10 +31,10 @@ (text.replace_all ..internal_separator ..external_separator)))) -(def: #export sanitize +(def: #export safe (-> Text External) (|>> ..internal ..external)) (def: #export (qualify package class) (-> Text External External) - (format (..sanitize package) ..external_separator class)) + (format (..safe package) ..external_separator class)) diff --git a/stdlib/source/library/lux/target/jvm/reflection.lux b/stdlib/source/library/lux/target/jvm/reflection.lux index 50bb2b974..5745ecd89 100644 --- a/stdlib/source/library/lux/target/jvm/reflection.lux +++ b/stdlib/source/library/lux/target/jvm/reflection.lux @@ -303,8 +303,8 @@ (if (text\= class_name name) (if (n.= num_class_params num_type_params) (|> params - (list.zip/2 (list\map (|>> java/lang/reflect/TypeVariable::getName) - class_params)) + (list.zipped/2 (list\map (|>> java/lang/reflect/TypeVariable::getName) + class_params)) (list\fold (function (_ [name paramT] mapping) (dictionary.put name paramT mapping)) /lux.fresh) diff --git a/stdlib/source/library/lux/target/jvm/type/lux.lux b/stdlib/source/library/lux/target/jvm/type/lux.lux index b4abe4093..ea9df2259 100644 --- a/stdlib/source/library/lux/target/jvm/type/lux.lux +++ b/stdlib/source/library/lux/target/jvm/type/lux.lux @@ -233,4 +233,4 @@ check (#try.Failure error) - (check.fail error))) + (check.failure error))) diff --git a/stdlib/source/library/lux/target/lua.lux b/stdlib/source/library/lux/target/lua.lux index 11f2c285e..3c76ad6c4 100644 --- a/stdlib/source/library/lux/target/lua.lux +++ b/stdlib/source/library/lux/target/lua.lux @@ -115,7 +115,7 @@ [%.frac (text.replace_all "+" "")]) :abstraction)) - (def: sanitize + (def: safe (-> Text Text) (`` (|>> (~~ (template [<find> <replace>] [(text.replace_all <find> <replace>)] @@ -134,7 +134,7 @@ (def: #export string (-> Text Literal) - (|>> ..sanitize (text.enclose' text.double_quote) :abstraction)) + (|>> ..safe (text.enclose' text.double_quote) :abstraction)) (def: #export multi (-> (List Expression) Literal) diff --git a/stdlib/source/library/lux/target/php.lux b/stdlib/source/library/lux/target/php.lux index 5008eae43..5ca2e0d58 100644 --- a/stdlib/source/library/lux/target/php.lux +++ b/stdlib/source/library/lux/target/php.lux @@ -155,7 +155,7 @@ [%.frac]) :abstraction)) - (def: sanitize + (def: safe (-> Text Text) (`` (|>> (~~ (template [<find> <replace>] [(text.replace_all <find> <replace>)] @@ -175,7 +175,7 @@ (def: #export string (-> Text Literal) - (|>> ..sanitize + (|>> ..safe (text.enclose [text.double_quote text.double_quote]) :abstraction)) diff --git a/stdlib/source/library/lux/target/python.lux b/stdlib/source/library/lux/target/python.lux index 0cf6d2c27..3c8450b31 100644 --- a/stdlib/source/library/lux/target/python.lux +++ b/stdlib/source/library/lux/target/python.lux @@ -150,7 +150,7 @@ [%.frac]) :abstraction))) - (def: sanitize + (def: safe (-> Text Text) (`` (|>> (~~ (template [<find> <replace>] [(text.replace_all <find> <replace>)] @@ -169,7 +169,7 @@ (def: #export string (-> Text Literal) - (|>> ..sanitize + (|>> ..safe (text.enclose [text.double_quote text.double_quote]) :abstraction)) @@ -444,7 +444,7 @@ (def: #export (comment commentary on) (All [brand] (-> Text (Code brand) (Code brand))) - (:abstraction (format "# " (..sanitize commentary) text.new_line + (:abstraction (format "# " (..safe commentary) text.new_line (:representation on)))) ) diff --git a/stdlib/source/library/lux/target/r.lux b/stdlib/source/library/lux/target/r.lux index 06f516e75..f6180c45c 100644 --- a/stdlib/source/library/lux/target/r.lux +++ b/stdlib/source/library/lux/target/r.lux @@ -133,7 +133,7 @@ [%.frac]) ..self_contained)) - (def: sanitize + (def: safe (-> Text Text) (`` (|>> (~~ (template [<find> <replace>] [(text.replace_all <find> <replace>)] @@ -151,7 +151,7 @@ (def: #export string (-> Text Expression) - (|>> ..sanitize %.text :abstraction)) + (|>> ..safe %.text :abstraction)) (def: #export (slice from to list) (-> Expression Expression Expression Expression) diff --git a/stdlib/source/library/lux/target/ruby.lux b/stdlib/source/library/lux/target/ruby.lux index a7dd6907f..1d28af979 100644 --- a/stdlib/source/library/lux/target/ruby.lux +++ b/stdlib/source/library/lux/target/ruby.lux @@ -147,7 +147,7 @@ #1 "true") :abstraction)) - (def: sanitize + (def: safe (-> Text Text) (`` (|>> (~~ (template [<find> <replace>] [(text.replace_all <find> <replace>)] @@ -170,7 +170,7 @@ (|>> <prep> <format> :abstraction))] [%.int int Int (<|)] - [%.text string Text ..sanitize] + [%.text string Text ..safe] [(<|) symbol Text (format ":")] ) @@ -416,7 +416,7 @@ (def: #export (comment commentary on) (All [brand] (-> Text (Code brand) (Code brand))) - (:abstraction (format "# " (..sanitize commentary) text.new_line + (:abstraction (format "# " (..safe commentary) text.new_line (:representation on)))) ) diff --git a/stdlib/source/library/lux/target/scheme.lux b/stdlib/source/library/lux/target/scheme.lux index 43b94d459..6ebc254db 100644 --- a/stdlib/source/library/lux/target/scheme.lux +++ b/stdlib/source/library/lux/target/scheme.lux @@ -128,7 +128,7 @@ (def: #export negative_infinity Computation (..float f.negative_infinity)) (def: #export not_a_number Computation (..float f.not_a_number)) - (def: sanitize + (def: safe (-> Text Text) (`` (|>> (~~ (template [<find> <replace>] [(text.replace_all <find> <replace>)] @@ -146,7 +146,7 @@ (def: #export string (-> Text Computation) - (|>> ..sanitize %.text :abstraction)) + (|>> ..safe %.text :abstraction)) (def: #export symbol (-> Text Computation) |