fix boot to include blocks correctly

test/parfait/test_callable_method.rb

@@ -99,5 +99,12 @@ module Parfait
       method = Parfait::CallableMethod.new( @obj , :other , @args , @frame)
       assert @method != method
     end
+    def test_create_block
+      @block = @method.create_block(@args , @frame)
+      assert_equal Block , @block.class
+    end
+    def test_has_block
+      assert_equal 7 , @method.get_type.variable_index( :blocks )
+    end
   end
 end

test/support/risc_interpreter.rb

@@ -13,6 +13,14 @@ module Risc
     end
     alias :do_setup :setup
 
+    def yielder
+      "def yielder; yield ; end"
+    end
+
+    def block_main( main , extra = yielder)
+      in_Space("#{extra} ; def main(arg) ; #{main} ; end")
+    end
+
     # check the given array of instructions is what the interpreter actually does
     # possible second argument ignores the given amount, usually up until main
     def check_chain( should , start_at = 0 )