fix [proc]'s return value.

partcl · Nov 29, 2009 · 6718aef · 6718aef
1 parent 7c5a26d
commit 6718aef
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/PmTcl/Commands.pm b/src/PmTcl/Commands.pm
@@ -234,6 +234,7 @@ our sub proc($name, $args, $body) {
     $block.name($name);
     $block.control('return_pir');
     PAST::Compiler.compile($block);
+    '';
 }
 
 our sub puts(*@args) {