From dc1199d6c01f7997ee2e39c304b940b7394723b2 Mon Sep 17 00:00:00 2001
From: "Patrick R. Michaud" <pmichaud@pobox.com>
Date: Thu, 28 Oct 2010 13:38:34 +0000
Subject: [PATCH] Fix arguments to .lineof() call in PAST::Compiler.

git-svn-id: https://svn.parrot.org/parrot/trunk@49711 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
---
 compilers/pct/src/PAST/Compiler.pir | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compilers/pct/src/PAST/Compiler.pir b/compilers/pct/src/PAST/Compiler.pir
index 519487b167..70da090570 100644
--- 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