aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/target
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/library/lux/target/common_lisp.lux4
-rw-r--r--stdlib/source/library/lux/target/js.lux4
-rw-r--r--stdlib/source/library/lux/target/jvm/bytecode.lux6
-rw-r--r--stdlib/source/library/lux/target/jvm/encoding/name.lux4
-rw-r--r--stdlib/source/library/lux/target/jvm/reflection.lux4
-rw-r--r--stdlib/source/library/lux/target/jvm/type/lux.lux2
-rw-r--r--stdlib/source/library/lux/target/lua.lux4
-rw-r--r--stdlib/source/library/lux/target/php.lux4
-rw-r--r--stdlib/source/library/lux/target/python.lux6
-rw-r--r--stdlib/source/library/lux/target/r.lux4
-rw-r--r--stdlib/source/library/lux/target/ruby.lux6
-rw-r--r--stdlib/source/library/lux/target/scheme.lux4
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)
generated by cgit v1.2.3 (git 2.25.1) at 2024-08-24 03:38:54 +0000