Fix FAILGOAL.

Raku · Apr 26, 2011 · 591efd8 · 591efd8
1 parent 98eb233
commit 591efd8
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/src/Regex/Cursor-builtins.pir b/src/Regex/Cursor-builtins.pir
@@ -228,9 +228,13 @@ Regex::Cursor-builtins - builtin regexes for Cursor objects
     message .= ", couldn't find final "
     message .= goal
     message .= ' at line '
-    $P0 = get_hll_global ['Regex'], 'Cursor'
+    $P0 = find_lex '$?CLASS'
     $P0 = getattribute self, $P0, '$!target'
-    $P1 = get_hll_global ['HLL'], 'Compiler'
+    $P1 = get_hll_global 'GLOBAL'
+    $P1 = get_who $P1
+    $P1 = $P1["HLL"]
+    $P1 = get_who $P1
+    $P1 = $P1["Compiler"]
     $I0 = self.'pos'()
     $I0 = $P1.'lineof'($P0, $I0)
     inc $I0