Author: pmichaud
Date: Thu Dec 18 10:15:55 2008
New Revision: 34070
Modified:
branches/main/compilers/pct/src/PCT/HLLCompiler.pir
Log:
[pct]: Don't remove the $0 argument from args when passing for execution.
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 Thu Dec 18 10:15:55 2008
@@ -755,7 +755,7 @@
unless args goto interactive
$I0 = adverbs['combine']
if $I0 goto combine
- $S0 = shift args
+ $S0 = args[0]
result = self.'evalfiles'($S0, args :flat, adverbs :flat :named)
goto save_output
combine:
