diff options
Diffstat (limited to 'stdlib/source/library/lux/control/pipe.lux')
| -rw-r--r-- | stdlib/source/library/lux/control/pipe.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/library/lux/control/pipe.lux b/stdlib/source/library/lux/control/pipe.lux index b65802ce6..3b136f771 100644 --- a/stdlib/source/library/lux/control/pipe.lux +++ b/stdlib/source/library/lux/control/pipe.lux @@ -1,6 +1,6 @@ (.using [library - [lux {"-" let cond if loop exec case} + [lux {"-" let cond if exec case} [abstract ["[0]" monad]] [control @@ -67,13 +67,13 @@ [] (~ prev)))))) -(syntax: .public (loop [test ..body - then ..body - prev <code>.any]) - (with_symbols [g!temp] - (in (list (` (.loop [(~ g!temp) (~ prev)] +(syntax: .public (while [test ..body + then ..body + prev <code>.any]) + (with_symbols [g!temp g!again] + (in (list (` (.loop ((~ g!again) [(~ g!temp) (~ prev)]) (.if (|> (~ g!temp) (~+ test)) - ((~' again) (|> (~ g!temp) (~+ then))) + ((~ g!again) (|> (~ g!temp) (~+ then))) (~ g!temp)))))))) (syntax: .public (do [monad <code>.any |