File tree Expand file tree Collapse file tree 2 files changed +6
-9
lines changed Expand file tree Collapse file tree 2 files changed +6
-9
lines changed Original file line number Diff line number Diff line change @@ -69,16 +69,16 @@ class FunctionTree extends StandardPostOrderTree instanceof Function {
69
69
70
70
class BlockExprTree extends StandardPostOrderTree instanceof BlockExpr {
71
71
override ControlFlowTree getChildNode ( int i ) {
72
- result = super .getStatement ( i )
72
+ result = super .getStmtList ( ) . getStatement ( i )
73
73
or
74
- not exists ( super .getStatement ( i ) ) and
75
- ( exists ( super .getStatement ( i - 1 ) ) or i = 0 ) and
76
- result = super .getTail ( )
74
+ not exists ( super .getStmtList ( ) . getStatement ( i ) ) and
75
+ ( exists ( super .getStmtList ( ) . getStatement ( i - 1 ) ) or i = 0 ) and
76
+ result = super .getStmtList ( ) . getTailExpr ( )
77
77
}
78
78
}
79
79
80
80
class CallExprTree extends StandardPostOrderTree instanceof CallExpr {
81
- override ControlFlowTree getChildNode ( int i ) { result = super .getArg ( i ) }
81
+ override ControlFlowTree getChildNode ( int i ) { result = super .getArgList ( ) . getArg ( i ) }
82
82
}
83
83
84
84
class BinaryOpExprTree extends StandardPostOrderTree instanceof BinaryExpr {
@@ -124,6 +124,3 @@ class LetExprTree extends StandardPostOrderTree instanceof LetExpr {
124
124
class LiteralExprTree extends LeafTree instanceof LiteralExpr { }
125
125
126
126
class PathExprTree extends LeafTree instanceof PathExpr { }
127
-
128
- // A leaf tree for unimplemented nodes in the AST.
129
- class UnimplementedTree extends LeafTree instanceof Unimplemented { }
Original file line number Diff line number Diff line change @@ -25,6 +25,6 @@ module Impl {
25
25
* ```
26
26
*/
27
27
class Function extends Generated:: Function {
28
- override string toString ( ) { result = this .getName ( ) }
28
+ override string toString ( ) { result = this .getName ( ) . getText ( ) }
29
29
}
30
30
}
You can’t perform that action at this time.
0 commit comments