1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
--- parse tree ---
[ Comment
, SoftBreak
, Code
"typ/compute/construct-07.typ"
( line 2 , column 2 )
(Let
(BasicBind (Just (Identifier "envelope")))
(FuncCall
(Ident (Identifier "symbol"))
[ NormalArg (Literal (String "\128386"))
, NormalArg
(Array
[ Reg (Literal (String "stamped"))
, Reg (Literal (String "\128387"))
])
, NormalArg
(Array
[ Reg (Literal (String "stamped.pen"))
, Reg (Literal (String "\128390"))
])
, NormalArg
(Array
[ Reg (Literal (String "lightning"))
, Reg (Literal (String "\128388"))
])
, NormalArg
(Array
[ Reg (Literal (String "fly"))
, Reg (Literal (String "\128389"))
])
]))
, ParBreak
, Code
"typ/compute/construct-07.typ"
( line 10 , column 2 )
(Ident (Identifier "envelope"))
, SoftBreak
, Code
"typ/compute/construct-07.typ"
( line 11 , column 2 )
(FieldAccess
(Ident (Identifier "stamped")) (Ident (Identifier "envelope")))
, SoftBreak
, Code
"typ/compute/construct-07.typ"
( line 12 , column 2 )
(FieldAccess
(Ident (Identifier "pen")) (Ident (Identifier "envelope")))
, SoftBreak
, Code
"typ/compute/construct-07.typ"
( line 13 , column 2 )
(FieldAccess
(Ident (Identifier "pen"))
(FieldAccess
(Ident (Identifier "stamped")) (Ident (Identifier "envelope"))))
, SoftBreak
, Code
"typ/compute/construct-07.typ"
( line 14 , column 2 )
(FieldAccess
(Ident (Identifier "lightning")) (Ident (Identifier "envelope")))
, SoftBreak
, Code
"typ/compute/construct-07.typ"
( line 15 , column 2 )
(FieldAccess
(Ident (Identifier "fly")) (Ident (Identifier "envelope")))
, ParBreak
]
--- evaluated ---
document(body: { text(body: [
]),
parbreak(),
text(body: [🖂]),
text(body: [
]),
text(body: [🖃]),
text(body: [
]),
text(body: [🖆]),
text(body: [
]),
text(body: [🖆]),
text(body: [
]),
text(body: [🖄]),
text(body: [
]),
text(body: [🖅]),
parbreak() })
|
