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 {
6969
7070class BlockExprTree extends StandardPostOrderTree instanceof BlockExpr {
7171 override ControlFlowTree getChildNode ( int i ) {
72- result = super .getStatement ( i )
72+ result = super .getStmtList ( ) . getStatement ( i )
7373 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 ( )
7777 }
7878}
7979
8080class 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 ) }
8282}
8383
8484class BinaryOpExprTree extends StandardPostOrderTree instanceof BinaryExpr {
@@ -124,6 +124,3 @@ class LetExprTree extends StandardPostOrderTree instanceof LetExpr {
124124class LiteralExprTree extends LeafTree instanceof LiteralExpr { }
125125
126126class 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 {
2525 * ```
2626 */
2727 class Function extends Generated:: Function {
28- override string toString ( ) { result = this .getName ( ) }
28+ override string toString ( ) { result = this .getName ( ) . getText ( ) }
2929 }
3030}
You can’t perform that action at this time.
0 commit comments