aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/target/lua.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/lux/target/lua.lux')
-rw-r--r--stdlib/source/lux/target/lua.lux24
1 files changed, 12 insertions, 12 deletions
diff --git a/stdlib/source/lux/target/lua.lux b/stdlib/source/lux/target/lua.lux
index 68c961ef7..fe4d0eb92 100644
--- a/stdlib/source/lux/target/lua.lux
+++ b/stdlib/source/lux/target/lua.lux
@@ -11,7 +11,7 @@
["." text
["%" format (#+ format)]]
[collection
- ["." list ("#//." functor fold)]]]
+ ["." list ("#\." functor fold)]]]
[macro
["." template]
["." code]
@@ -114,15 +114,15 @@
(def: #export array
(-> (List (Expression Any)) Literal)
- (|>> (list//map ..code)
+ (|>> (list\map ..code)
(text.join-with ..input-separator)
(text.enclose ["{" "}"])
:abstraction))
(def: #export table
(-> (List [Text (Expression Any)]) Literal)
- (|>> (list//map (.function (_ [key value])
- (format key " = " (:representation value))))
+ (|>> (list\map (.function (_ [key value])
+ (format key " = " (:representation value))))
(text.join-with ..input-separator)
(text.enclose ["{" "}"])
:abstraction))
@@ -144,7 +144,7 @@
(def: #export (apply/* args func)
(-> (List (Expression Any)) (Expression Any) (Computation Any))
(|> args
- (list//map ..code)
+ (list\map ..code)
(text.join-with ..input-separator)
(text.enclose ["(" ")"])
(format (:representation func))
@@ -153,7 +153,7 @@
(def: #export (do method table args)
(-> Text (Expression Any) (List (Expression Any)) (Computation Any))
(|> args
- (list//map ..code)
+ (list\map ..code)
(text.join-with ..input-separator)
(text.enclose ["(" ")"])
(format (:representation table) ":" method)
@@ -212,7 +212,7 @@
(def: locations
(-> (List (Location Any)) Text)
- (|>> (list//map ..code)
+ (|>> (list\map ..code)
(text.join-with ..input-separator)))
(def: #export (local vars)
@@ -253,7 +253,7 @@
(-> (List Var) (Expression Any) Statement Statement)
(:abstraction
(format "for " (|> vars
- (list//map ..code)
+ (list\map ..code)
(text.join-with ..input-separator))
" in " (:representation source) " do"
(..nest (:representation body!))
@@ -303,7 +303,7 @@
(def: #export (cond clauses else!)
(-> (List [(Expression Any) Statement]) Statement Statement)
- (list//fold (.function (_ [test then!] next!)
- (..if test then! next!))
- else!
- (list.reverse clauses)))
+ (list\fold (.function (_ [test then!] next!)
+ (..if test then! next!))
+ else!
+ (list.reverse clauses)))