[svn:parrot] r38795 - trunk/compilers/pct/src/PCT

[pmichaud at svn.parrot.org]

Author: pmichaud
Date: Fri May 15 16:33:56 2009
New Revision: 38795
URL: https://trac.parrot.org/parrot/changeset/38795

Log:
[pct]:  Make $?FILES available to compilers.

Modified:
   trunk/compilers/pct/src/PCT/HLLCompiler.pir

Modified: trunk/compilers/pct/src/PCT/HLLCompiler.pir
==============================================================================
--- trunk/compilers/pct/src/PCT/HLLCompiler.pir	Fri May 15 16:12:33 2009	(r38794)
+++ trunk/compilers/pct/src/PCT/HLLCompiler.pir	Fri May 15 16:33:56 2009	(r38795)
@@ -688,6 +688,9 @@
     close ifh
     goto iter_loop
   iter_end:
+    $S0 = join ' ', files
+    $P1 = box $S0
+    .lex '$?FILES', $P1
     $P0 = self.'eval'(code, args :flat, adverbs :flat :named)
     if target == '' goto end
     if target == 'pir' goto end