diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/library/lux/target/common_lisp.lux | 50 |
1 files changed, 25 insertions, 25 deletions
diff --git a/stdlib/source/library/lux/target/common_lisp.lux b/stdlib/source/library/lux/target/common_lisp.lux index c868a0781..dbeee8bdb 100644 --- a/stdlib/source/library/lux/target/common_lisp.lux +++ b/stdlib/source/library/lux/target/common_lisp.lux @@ -196,9 +196,9 @@ (def: .public (destructuring_bind [bindings expression] body) (-> [Var/* (Expression Any)] (List (Expression Any)) (Computation Any)) - (..form (list& (..var "destructuring-bind") - (transmutation bindings) expression - body))) + (..form (partial_list (..var "destructuring-bind") + (transmutation bindings) expression + body))) (template [<call> <input_var>+ <input_type>+ <function>+] [(`` (def: .public (<call> [(~~ (template.spliced <input_var>+))] function) @@ -289,7 +289,7 @@ (def: .public (funcall/+ [func args]) (-> [(Expression Any) (List (Expression Any))] (Computation Any)) - (..call/* (..var "funcall") (list& func args))) + (..call/* (..var "funcall") (partial_list func args))) (def: .public (search/3 [reference space start]) (-> [(Expression Any) (Expression Any) (Expression Any)] (Computation Any)) @@ -347,12 +347,12 @@ (template [<lux_name> <host_name>] [(def: .public (<lux_name> bindings body) (-> (List [Var/1 (Expression Any)]) (List (Expression Any)) (Computation Any)) - (..form (list& (..var <host_name>) - (|> bindings - (list#each (function (_ [name value]) - (..form (list name value)))) - ..form) - body)))] + (..form (partial_list (..var <host_name>) + (|> bindings + (list#each (function (_ [name value]) + (..form (list name value)))) + ..form) + body)))] [let "let"] [let* "let*"] @@ -369,7 +369,7 @@ (template [<name> <symbol>] [(def: .public <name> (-> (List (Expression Any)) (Computation Any)) - (|>> (list& (..var <symbol>)) ..form))] + (|>> (partial_list (..var <symbol>)) ..form))] [progn "progn"] [tagbody "tagbody"] @@ -392,13 +392,13 @@ (def: .public (handler_case handlers body) (-> (List Handler) (Expression Any) (Computation Any)) - (..form (list& (..var "handler-case") - body - (list#each (function (_ [type condition handler]) - (..form (list type - (transmutation (..args (list condition))) - handler))) - handlers)))) + (..form (partial_list (..var "handler-case") + body + (list#each (function (_ [type condition handler]) + (..form (list type + (transmutation (..args (list condition))) + handler))) + handlers)))) (template [<name> <prefix>] [(def: .public (<name> conditions expression) @@ -414,7 +414,7 @@ _ (abstraction (format <prefix> (|> conditions (list#each ..symbol) - (list& (..symbol "or")) ..form + (partial_list (..symbol "or")) ..form representation) " " (representation expression)))))] @@ -427,7 +427,7 @@ (def: .public (block name body) (-> Label (List (Expression Any)) (Computation Any)) - (..form (list& (..var "block") (transmutation name) body))) + (..form (partial_list (..var "block") (transmutation name) body))) (def: .public (return_from target value) (-> Label (Expression Any) (Computation Any)) @@ -439,11 +439,11 @@ (def: .public (cond clauses else) (-> (List [(Expression Any) (Expression Any)]) (Expression Any) (Computation Any)) - (..form (list& (..var "cond") - (list#composite (list#each (function (_ [test then]) - (..form (list test then))) - clauses) - (list (..form (list (..bool true) else))))))) + (..form (partial_list (..var "cond") + (list#composite (list#each (function (_ [test then]) + (..form (list test then))) + clauses) + (list (..form (list (..bool true) else))))))) (def: .public tag (-> Text Tag) |