diff options
Diffstat (limited to 'stdlib/source/lux/control/state.lux')
| -rw-r--r-- | stdlib/source/lux/control/state.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/lux/control/state.lux b/stdlib/source/lux/control/state.lux index d42408984..d4aae98a6 100644 --- a/stdlib/source/lux/control/state.lux +++ b/stdlib/source/lux/control/state.lux @@ -80,10 +80,10 @@ (def: #export (while condition body) (All [s] (-> (State s Bit) (State s Any) (State s Any))) - (do {@ ..monad} + (do {! ..monad} [execute? condition] (if execute? - (do @ + (do ! [_ body] (while condition body)) (wrap [])))) |