diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/library/lux/target/r.lux | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/stdlib/source/library/lux/target/r.lux b/stdlib/source/library/lux/target/r.lux index 2b4fcede3..02b192b08 100644 --- a/stdlib/source/library/lux/target/r.lux +++ b/stdlib/source/library/lux/target/r.lux @@ -174,7 +174,7 @@ (:abstraction (format func "(" (|> args - (list\map ..code) + (list\each ..code) (text.interposed (format "," text.new_line)) ..nested) ")")))) @@ -190,8 +190,8 @@ (def: .public named_list (-> (List [Text Expression]) Expression) - (|>> (list\map (.function (_ [key value]) - (:abstraction (format key "=" (:representation value))))) + (|>> (list\each (.function (_ [key value]) + (:abstraction (format key "=" (:representation value))))) ..list)) (def: .public (apply_kw args kw_args func) @@ -199,10 +199,10 @@ (..self_contained (format (:representation func) (format "(" - (text.interposed "," (list\map ..code args)) "," - (text.interposed "," (list\map (.function (_ [key val]) - (format key "=" (:representation val))) - kw_args)) + (text.interposed "," (list\each ..code args)) "," + (text.interposed "," (list\each (.function (_ [key val]) + (format key "=" (:representation val))) + kw_args)) ")")))) (syntax: (arity_inputs [arity <code>.nat]) @@ -210,7 +210,7 @@ 0 (.list) _ (|> arity list.indices - (list\map (|>> %.nat code.local_identifier)))))) + (list\each (|>> %.nat code.local_identifier)))))) (syntax: (arity_types [arity <code>.nat]) (in (list.repeated arity (` ..Expression)))) @@ -328,7 +328,7 @@ (def: .public (function inputs body) (-> (List (Ex [k] (Var k))) Expression Expression) - (let [args (|> inputs (list\map ..code) (text.interposed ", "))] + (let [args (|> inputs (list\each ..code) (text.interposed ", "))] (..self_contained (format "function(" args ") " (.._block (:representation body)))))) @@ -338,7 +338,7 @@ (let [optional (: (-> Text (Maybe Expression) (-> Text Text) Text) (.function (_ parameter value preparation) (|> value - (maybe\map (|>> :representation preparation (format ", " parameter " = "))) + (maybe\each (|>> :representation preparation (format ", " parameter " = "))) (maybe.else ""))))] (..self_contained (format "tryCatch(" |