]> Git — Sourcephile - haskell/symantic-parser.git/blob - test/Golden/Machine/G11.expected.txt
fix: use a global polyfix for defLet and defRef
[haskell/symantic-parser.git] / test / Golden / Machine / G11.expected.txt
1 let <hidden>
2 minReads=(Right 0)
3 mayRaise=[]
4 | catchException "fail"
5 | minReads=(Right 0)
6 | mayRaise=[]
7 | | <ok>
8 | | | pushValue (\u1 -> (\u2 -> (\u3 -> u1 (u2 u3))))
9 | | | minReads=(Right 1)
10 | | | mayRaise=["fail"]
11 | | | pushValue cons
12 | | | minReads=(Right 1)
13 | | | mayRaise=["fail"]
14 | | | pushValue (\u1 -> (\u2 -> u1))
15 | | | minReads=(Right 1)
16 | | | mayRaise=["fail"]
17 | | | pushValue 'a'
18 | | | minReads=(Right 1)
19 | | | mayRaise=["fail"]
20 | | | lift2Value (\u1 -> (\u2 -> u1 u2))
21 | | | minReads=(Right 1)
22 | | | mayRaise=["fail"]
23 | | | read ('a' ==)
24 | | | minReads=(Right 1)
25 | | | mayRaise=["fail"]
26 | | | lift2Value (\u1 -> (\u2 -> u1 u2))
27 | | | minReads=(Right 0)
28 | | | mayRaise=[]
29 | | | lift2Value (\u1 -> (\u2 -> u1 u2))
30 | | | minReads=(Right 0)
31 | | | mayRaise=[]
32 | | | lift2Value (\u1 -> (\u2 -> u1 u2))
33 | | | minReads=(Right 0)
34 | | | mayRaise=[]
35 | | | call <hidden>
36 | | | minReads=(Right 0)
37 | | | mayRaise=[]
38 | | | lift2Value (\u1 -> (\u2 -> u1 u2))
39 | | | minReads=(Right 0)
40 | | | mayRaise=[]
41 | | | popException "fail"
42 | | | minReads=(Right 0)
43 | | | mayRaise=[]
44 | | | ret
45 | | | minReads=(Right 0)
46 | | | mayRaise=[]
47 | | <ko>
48 | | | pushInput
49 | | | minReads=(Right 0)
50 | | | mayRaise=["fail"]
51 | | | lift2Value Term
52 | | | minReads=(Right 0)
53 | | | mayRaise=["fail"]
54 | | | choicesBranch [(\u1 -> u1)]
55 | | | minReads=(Right 0)
56 | | | mayRaise=["fail"]
57 | | | | <branch>
58 | | | | | pushValue (\u1 -> u1)
59 | | | | | minReads=(Right 0)
60 | | | | | mayRaise=[]
61 | | | | | ret
62 | | | | | minReads=(Right 0)
63 | | | | | mayRaise=[]
64 | | | | <default>
65 | | | | | raiseException "fail"
66 | | | | | minReads=(Left "fail")
67 | | | | | mayRaise=["fail"]
68 pushValue (\u1 -> (\u2 -> u1))
69 minReads=(Right 1)
70 mayRaise=["fail"]
71 call <hidden>
72 minReads=(Right 1)
73 mayRaise=["fail"]
74 pushValue Term
75 minReads=(Right 1)
76 mayRaise=["fail"]
77 lift2Value (\u1 -> (\u2 -> u1 u2))
78 minReads=(Right 1)
79 mayRaise=["fail"]
80 lift2Value (\u1 -> (\u2 -> u1 u2))
81 minReads=(Right 1)
82 mayRaise=["fail"]
83 pushValue (\u1 -> (\u2 -> u1))
84 minReads=(Right 1)
85 mayRaise=["fail"]
86 pushValue 'b'
87 minReads=(Right 1)
88 mayRaise=["fail"]
89 lift2Value (\u1 -> (\u2 -> u1 u2))
90 minReads=(Right 1)
91 mayRaise=["fail"]
92 read ('b' ==)
93 minReads=(Right 1)
94 mayRaise=["fail"]
95 lift2Value (\u1 -> (\u2 -> u1 u2))
96 minReads=(Right 0)
97 mayRaise=[]
98 lift2Value (\u1 -> (\u2 -> u1 u2))
99 minReads=(Right 0)
100 mayRaise=[]
101 ret
102 minReads=(Right 0)
103 mayRaise=[]