diff options
author | Eduardo Julian | 2019-05-01 21:53:54 -0400 |
---|---|---|
committer | Eduardo Julian | 2019-05-01 21:53:54 -0400 |
commit | 70568c910982930a160a24a0d6d3ebde2484be32 (patch) | |
tree | 0213fd581e4da6008092af5faba4660776ed83aa /stdlib/source/lux/target | |
parent | 8f7fa3f0592aa33dcfbca8b5e978b0b9075cdd81 (diff) |
Turned "sum//get" into an iterative loop.
Diffstat (limited to 'stdlib/source/lux/target')
-rw-r--r-- | stdlib/source/lux/target/common-lisp.lux | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/stdlib/source/lux/target/common-lisp.lux b/stdlib/source/lux/target/common-lisp.lux index ad3d9be8f..dc8694dc9 100644 --- a/stdlib/source/lux/target/common-lisp.lux +++ b/stdlib/source/lux/target/common-lisp.lux @@ -420,3 +420,8 @@ (:transmutation else) (list.reverse clauses))) ) + +(def: #export (while condition body) + (-> (Expression Any) (Expression Any) (Computation Any)) + (..form (list (..var "loop") (..var "while") condition + (..var "do") body))) |