aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/control/parser/binary.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/library/lux/control/parser/binary.lux')
-rw-r--r--stdlib/source/library/lux/control/parser/binary.lux14
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/library/lux/control/parser/binary.lux b/stdlib/source/library/lux/control/parser/binary.lux
index b8c37c1bb..015961926 100644
--- a/stdlib/source/library/lux/control/parser/binary.lux
+++ b/stdlib/source/library/lux/control/parser/binary.lux
@@ -194,13 +194,13 @@
(do //.monad
[amount (is (Parser Nat)
<bits>)]
- (loop [index 0
- output (sharing [v]
- (Parser v)
- valueP
-
- (Sequence v)
- sequence.empty)]
+ (loop (again [index 0
+ output (sharing [v]
+ (Parser v)
+ valueP
+
+ (Sequence v)
+ sequence.empty)])
(if (n.< amount index)
(do //.monad
[value valueP]