propagate constants from block_compiler up

up to method_compiler, where they are collected by mom_compiler
(and included in binary)

test/mom/test_mom_compiler1.rb

@@ -6,7 +6,7 @@ module Mom
 
     def setup
       Parfait.boot!
-      @comp = compile_mom( "class Test ; def main(); return 'Hi'; end; end;")
+      @comp = compile_mom( "class Test ; def main(); main{return 'Ho'};return 'Hi'; end; end;")
       @linker = @comp.translate(:interpreter)
     end
 
@@ -22,6 +22,9 @@ module Mom
     def test_linker_constants_contains_hi
       assert @linker.constants.include?("Hi")
     end
+    def test_linker_constants_contains_ho
+      assert @linker.constants.include?("Ho")
+    end
     def test_translate_platform
       assert_kind_of Risc::Platform , @linker.platform
     end

test/risc/test_method_compiler.rb

@@ -64,14 +64,21 @@ module Risc
       assert_equal 1 , method.frame_type.variable_index(:local)
       assert_equal 2 , method.frame_type.variable_index(:a)
     end
-    def test_has_constant
-      input = in_Test("def meth; return 'Hi';end")
-      mom = RubyX::RubyXCompiler.new(input).ruby_to_mom
+    def constant_setup(input)
+      mom = RubyX::RubyXCompiler.new(in_Test(input)).ruby_to_mom
       assert_equal Mom::MomCompiler , mom.class
       compiler = mom.method_compilers.first
       assert_equal MethodCompiler , compiler.class
+      compiler
+    end
+    def test_has_method_constant
+      compiler = constant_setup("def meth; return 'Hi';end")
       assert compiler.constants.include?("Hi")
     end
+    def test_has_block_constant
+      compiler = constant_setup("def meth; meth{return 'Ho'};return 'Hi';end")
+      assert compiler.constants.include?("Ho")
+    end
 
   end
 end