Fix arguments to .lineof() call in PAST::Compiler.

git-svn-id: https://svn.parrot.org/parrot/trunk@49711 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
parrot · Oct 28, 2010 · dc1199d · dc1199d
1 parent be7176f
commit dc1199d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/compilers/pct/src/PAST/Compiler.pir b/compilers/pct/src/PAST/Compiler.pir
@@ -2087,7 +2087,7 @@ attribute.
     $S0 = files
     sourceline = concat ' (', $S0
     concat sourceline, ':'
-    $I0 = self.'lineof'(pos)
+    $I0 = self.'lineof'(source, pos)
     inc $I0
     $S0 = $I0
     concat sourceline, $S0