Author: pmichaud
Date: Wed Dec 17 19:35:38 2008
New Revision: 34057
Modified:
branches/main/compilers/pct/src/PCT/HLLCompiler.pir
Log:
[pct]: 'evalfiles' should pass command line arguments to 'eval'.
Modified: branches/main/compilers/pct/src/PCT/HLLCompiler.pir
==============================================================================
--- branches/main/compilers/pct/src/PCT/HLLCompiler.pir (original)
+++ branches/main/compilers/pct/src/PCT/HLLCompiler.pir Wed Dec 17 19:35:38 2008
@@ -666,7 +666,7 @@
close ifh
goto iter_loop
iter_end:
- $P0 = self.'eval'(code, adverbs :flat :named)
+ $P0 = self.'eval'(code, args :flat, adverbs :flat :named)
if target == '' goto end
if target == 'pir' goto end
'_dumper'($P0, target)
