fix use of slot_constant vs slot_move

wip

lib/mom/slot_load.rb

@@ -39,6 +39,12 @@ module Mom
   # @left:  See SlotLoad, and array of symbols
   # @right: A Constant from parse, ie an instance of classes in basc_value, like TrueStatement
   class SlotConstant < SlotLoad
+
+    def initialize(left , right)
+      super
+      raise "right not constant, #{right}" unless right.is_a? Vool::ConstantStatement
+    end
+
   end
 
   class SlotMove < SlotLoad

lib/vool/statements/basic_values.rb

@@ -1,5 +1,16 @@
 module Vool
-  class IntegerStatement < Statement
+  class Statement
+    def slot_class
+      Mom::SlotMove
+    end
+  end
+  class ConstantStatement < Statement
+    def slot_class
+      Mom::SlotConstant
+    end
+  end
+
+  class IntegerStatement < ConstantStatement
     attr_reader :value
     def initialize(value)
       @value = value
@@ -8,7 +19,7 @@ module Vool
       Parfait.object_space.get_class_by_name(:Integer).instance_type
     end
   end
-  class FloatStatement < Statement
+  class FloatStatement < ConstantStatement
     attr_reader :value
     def initialize(value)
       @value = value
@@ -17,17 +28,17 @@ module Vool
       true
     end
   end
-  class TrueStatement < Statement
+  class TrueStatement < ConstantStatement
     def ct_type
       Parfait.object_space.get_class_by_name(:True).instance_type
     end
   end
-  class FalseStatement < Statement
+  class FalseStatement < ConstantStatement
     def ct_type
       Parfait.object_space.get_class_by_name(:False).instance_type
     end
   end
-  class NilStatement < Statement
+  class NilStatement < ConstantStatement
     def ct_type
       Parfait.object_space.get_class_by_name(:Nil).instance_type
     end
@@ -44,7 +55,7 @@ module Vool
   end
   class SuperStatement < Statement
   end
-  class StringStatement < Statement
+  class StringStatement < ConstantStatement
     attr_reader :value
     def initialize(value)
       @value = value

lib/vool/statements/return_statement.rb

@@ -15,8 +15,8 @@ module Vool
     # - store the given return value, this is a SlotMove / SlotConstant
     # - activate return sequence (reinstantiate old message and jump to return address)
     def to_mom( method )
-      Mom::Statements.new [Mom::SlotConstant.new([:message , :return_value] , @return_value) ,
-                           Mom::ReturnSequence.new]
+      move = @return_value.slot_class.new( [:message , :return_value] , @return_value)
+      Mom::Statements.new [move , Mom::ReturnSequence.new]
     end
 
   end