diff options
Diffstat (limited to 'stdlib/source/library/lux/control/parser/binary.lux')
-rw-r--r-- | stdlib/source/library/lux/control/parser/binary.lux | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/stdlib/source/library/lux/control/parser/binary.lux b/stdlib/source/library/lux/control/parser/binary.lux index 66dd9f3c5..d6de3c7cd 100644 --- a/stdlib/source/library/lux/control/parser/binary.lux +++ b/stdlib/source/library/lux/control/parser/binary.lux @@ -268,14 +268,14 @@ (function (_ recur) (let [sequence (..list recur)] (//.and ..location - (!variant [[0 [#.Bit] ..bit] - [1 [#.Nat] ..nat] - [2 [#.Int] ..int] - [3 [#.Rev] ..rev] - [4 [#.Frac] ..frac] - [5 [#.Text] ..text] - [6 [#.Identifier] ..name] - [7 [#.Tag] ..name] - [8 [#.Form] sequence] - [9 [#.Tuple] sequence] - [10 [#.Record] (..list (//.and recur recur))]])))))) + (!variant [[00 [#.Bit] ..bit] + [01 [#.Nat] ..nat] + [02 [#.Int] ..int] + [03 [#.Rev] ..rev] + [04 [#.Frac] ..frac] + [05 [#.Text] ..text] + [06 [#.Identifier] ..name] + [07 [#.Tag] ..name] + [08 [#.Form] sequence] + [09 [#.Variant] sequence] + [10 [#.Tuple] sequence]])))))) |