Skip to content

Commit

Permalink
Handle new if statement definition
Browse files Browse the repository at this point in the history
This updates the debugger to deal with the syntax tree as it is created
after 1c76b58.

Without this commit, the debugger will die if your code contains any if
statements.
  • Loading branch information
Leont committed Sep 14, 2015
1 parent 3655638 commit e7b27c4
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/perl6-debug.nqp
Expand Up @@ -198,7 +198,7 @@ class Perl6::HookActions is Perl6::Actions {

method statement_control:sym<if>($/) {
if $*DEBUG_HOOKS.has_hook('statement_cond') {
my $from := $<sym>.from;
my $from := $<sym>[0].from;
for $<xblock> {
my $ast := $_.ast;
$ast[0] := QAST::Stmts.new(
Expand Down

0 comments on commit e7b27c4

Please sign in to comment.