bring the blocks down to mom level

reusing message_setup, but adding yield specific instructions

test/vool/test_yield_statement.rb

@@ -1,7 +1,7 @@
 require_relative "helper"
 
 module Vool
-  class TestYieldArgsSendMom #< MiniTest::Test
+  class TestYieldArgsSendMom < MiniTest::Test
     include MomCompile
     include Mom
 
@@ -11,23 +11,49 @@ module Vool
     end
 
     def test_array
-      check_array [MessageSetup, ArgumentTransfer, SimpleCall, SlotLoad, MessageSetup ,
-                    ArgumentTransfer, SimpleCall, SlotLoad] , @ins
+      check_array [NotSameCheck, Label, MessageSetup, ArgumentTransfer, BlockYield] ,
+                    @ins
     end
-
-    def pest_one_call
-      assert_equal SimpleCall, @ins.next(2).class
-      assert_equal :+, @ins.next(2).method.name
+    def test_check_label
+      assert_equal NotSameCheck, @ins.class
+      assert @ins.false_jump.name.start_with?("method_ok_")
     end
-    def pest_two_call
-      assert_equal SimpleCall, @ins.next(6).class
-      assert_equal :main, @ins.next(6).method.name
+    def test_check_left
+      assert_equal SlotDefinition, @ins.left.class
+      assert_equal Parfait::CallableMethod, @ins.left.known_object.class
+      assert_equal :main, @ins.left.known_object.name
+      assert @ins.left.slots.empty?
     end
-    def pest_args_one_l
-      left = @ins.next(1).arguments[0].left
+    def test_check_right
+      assert_equal SlotDefinition, @ins.right.class
+      assert_equal :message, @ins.right.known_object
+      assert_equal [:method] , @ins.right.slots
+    end
+    def test_label
+      assert_equal Label, @ins.next(1).class
+      assert @ins.next(1).name.start_with?("method_ok_")
+    end
+    def test_setup
+      assert_equal MessageSetup, @ins.next(2).class
+      assert_equal 3, @ins.next(2).method_source
+    end
+    def test_transfer
+      assert_equal ArgumentTransfer, @ins.next(3).class
+      assert_equal 1, @ins.next(3).arguments.length
+    end
+    def test_receiver
+      assert_equal :message , @ins.next(3).receiver.known_object
+      assert_equal [:receiver] , @ins.next(3).receiver.slots
+    end
+    def test_args_one_l
+      left = @ins.next(3).arguments[0].left
       assert_equal Symbol, left.known_object.class
       assert_equal :message, left.known_object
       assert_equal [:next_message, :arguments, 1], left.slots
     end
+    def test_yield
+      assert_equal BlockYield, @ins.next(4).class
+      assert_equal 3, @ins.next(4).arg_index
+    end
   end
 end