Fix FAILGOAL in HLL::Grammar.

jnthn · jnthn · commit 1a8fbc8cbd1e · 2013-04-30T00:23:27.000+02:00
diff --git a/src/HLL/Grammar.nqp b/src/HLL/Grammar.nqp
@@ -277,7 +277,7 @@ of the match.
     
     method FAILGOAL($goal, $dba?) {
         unless $dba {
-            $dba := ~nqp::callercode();
+            $dba := nqp::getcodename(nqp::callercode());
         }
         self.panic("Unable to parse expression in $dba; couldn't find final $goal");
     }

Original file line number	Diff line number	Diff line change
`@@ -277,7 +277,7 @@ of the match.`
`277`	`277`
`278`	`278`	`method FAILGOAL($goal, $dba?) {`
`279`	`279`	`unless $dba {`
`280`		`- $dba := ~nqp::callercode();`
	`280`	`+ $dba := nqp::getcodename(nqp::callercode());`
`281`	`281`	`}`
`282`	`282`	`self.panic("Unable to parse expression in $dba; couldn't find final $goal");`
`283`	`283`	`}`