Index: parrot/compilers/pct/src/PCT/HLLCompiler.pir =================================================================== --- parrot/compilers/pct/src/PCT/HLLCompiler.pir (revision 36930) +++ parrot/compilers/pct/src/PCT/HLLCompiler.pir (working copy) @@ -765,6 +765,10 @@ if $I0 goto version + .local string target + target = adverbs['target'] + target = downcase target + $S0 = adverbs['e'] $I0 = exists adverbs['e'] if $I0 goto eval_line @@ -785,13 +789,14 @@ goto save_output eval_line: result = self.'eval'($S0, '-e', args :flat, adverbs :flat :named) + if target == '' goto no_dump + if target == 'pir' goto no_dump + '_dumper'(result, target) + no_dump: save_output: if null result goto end unless result goto end - .local string target - target = adverbs['target'] - target = downcase target if target != 'pir' goto end .local string output .local pmc ofh