Add the autoprint hook

perl6 · May 21, 2010 · 528fb67 · 528fb67
1 parent def10fd
commit 528fb67
Showing 1 changed file with 10 additions and 6 deletions.
diff --git a/src/HLL/Compiler.pm b/src/HLL/Compiler.pm
@@ -82,6 +82,10 @@ class HLL::Compiler is PCT::HLLCompiler {
         }
     }
 
+    method autoprint($value) {
+        pir::say(~$value);
+    }
+
     method interactive(*%adverbs) {
         my $target := pir::downcase(%adverbs<target>);
 
@@ -113,12 +117,12 @@ class HLL::Compiler is PCT::HLLCompiler {
                 };
                 next if pir::isnull($output);
 
-                if $target {
-                    if $target eq 'pir' {
-                        say($output);
-                    } else {
-                        self.dumper($output, $target, |%adverbs);
-                    }
+                if !$target {
+                    self.autoprint($output);
+                } elsif $target eq 'pir' {
+                   pir::say($output);
+                } else {
+                   self.dumper($output, $target, |%adverbs);
                 }
             }
         }