change license to AGPL-3.0-or-later
[haskell/symantic-parser.git] / test / Golden / Machine / many-char-eof.dump
index d3a66d11f8db5ce9eedae2aed8595ef277d6367a..232926216a9e19ad2073c7051495c90d56183779 100644 (file)
@@ -1,11 +1,11 @@
 push (\u1 -> (\u2 -> u1 Term))
-name_1:
+<hidden>:
 | catchFail
 |   <try>
 |   | push (\u1 -> (\u2 -> (\u3 -> 'r' : u2 u3)))
 |   | read ('r' ==)
 |   | lift (\u1 -> (\u2 -> u1 u2))
-|   | call name_1
+|   | call <hidden>
 |   | lift (\u1 -> (\u2 -> u1 u2))
 |   | popFail
 |   | ret
@@ -18,9 +18,9 @@ name_1:
 |       | ret
 |       <default>
 |         fail
-call name_1
+call <hidden>
 lift (\u1 -> (\u2 -> u1 u2))
-join_55:
+<hidden>:
 | lift (\u1 -> (\u2 -> u1 u2))
 | ret
 catchFail
@@ -37,7 +37,7 @@ catchFail
   |     loadInput
   |     push Term
   |     popFail
-  |     refJoin join_55
+  |     refJoin <hidden>
   <handler>
     pushInput
     lift Term