lib/vm/core/pinteger.rb in p-lang-0.2.0 vs lib/vm/core/pinteger.rb in p-lang-0.3.0

@@ -1,116 +1,116 @@
 module PLang
   module VM
     module PFunctions
       def add_to_interpreter_integer_functions
         
-        object_message "{integer: x}", :add do |object|
+        def_object_message "{integer: x}", :add do |object|
           plambda "y" do |value|
             if value[0].id == :integer
               PObject.new(:integer, [object.params[0] + value[0].params[0]])
             elsif value[0].id == :decimal
               PObject.new(:decimal, [object.params[0] + value[0].params[0]])
             end
           end
         end
         
-        object_message "{integer: x}", :sub do |object|
+        def_object_message "{integer: x}", :sub do |object|
           plambda "y" do |value|
             if value[0].id == :integer
               PObject.new(:integer, [object.params[0] - value[0].params[0]])
             elsif value[0].id == :decimal
               PObject.new(:decimal, [object.params[0] - value[0].params[0]])
             end
           end
         end
         
-        object_message "{integer: x}", :mul do |object|
+        def_object_message "{integer: x}", :mul do |object|
           plambda "y" do |value|
             if value[0].id == :integer
               PObject.new(:integer, [object.params[0] * value[0].params[0]])
             elsif value[0].id == :decimal
               PObject.new(:decimal, [object.params[0] * value[0].params[0]])
             end
           end
         end
         
-        object_message "{integer: x}", :div do |object|
+        def_object_message "{integer: x}", :div do |object|
           plambda "y" do |value|
             if value[0].id == :integer
               PObject.new(:integer, [object.params[0] / value[0].params[0]])
             elsif value[0].id == :decimal
               PObject.new(:decimal, [object.params[0] / value[0].params[0]])
             end
           end
         end
         
-        object_message "{integer: x}", :mod do |object|
+        def_object_message "{integer: x}", :mod do |object|
           plambda "y" do |value|
             if value[0].id == :integer
               PObject.new(:integer, [object.params[0] % value[0].params[0]])
             elsif value[0].id == :decimal
               PObject.new(:decimal, [object.params[0] % value[0].params[0]])
             end
           end
         end
         
-        object_message "{integer: x}", :major do |object|
+        def_object_message "{integer: x}", :major do |object|
           plambda "y" do |value|
             case value[0].id
               when :integer, :decimal
                 PObject.new(:boolean, [(object.params[0] > value[0].params[0]).to_s.to_sym])
               else
                 raise "TODO: integer"
             end
           end
         end
         
-        object_message "{integer: x}", :major_equal do |object|
+        def_object_message "{integer: x}", :major_equal do |object|
           plambda "y" do |value|
             case value[0].id
               when :integer, :decimal
                 PObject.new(:boolean, [(object.params[0] >= value[0].params[0]).to_s.to_sym])
               else
                 raise "TODO: integer"
             end
           end
         end
         
-        object_message "{integer: x}", :minor do |object|
+        def_object_message "{integer: x}", :minor do |object|
           plambda "y" do |value|
             case value[0].id
               when :integer, :decimal
                 PObject.new(:boolean, [(object.params[0] < value[0].params[0]).to_s.to_sym])
               else
                 raise "TODO: integer"
             end
           end
         end
         
-        object_message "{integer: x}", :minor_equal do |object|
+        def_object_message "{integer: x}", :minor_equal do |object|
           plambda "y" do |value|
             case value[0].id
               when :integer, :decimal
                 PObject.new(:boolean, [(object.params[0] <= value[0].params[0]).to_s.to_sym])
               else
                 raise "TODO: integer"
             end
           end
         end
         
-        object_message "{integer: x}", :equal do |object|
+        def_object_message "{integer: x}", :equal do |object|
           plambda "y" do |value|
             case value[0].id
               when :integer, :decimal
                 PObject.new(:boolean, [(object.params[0] == value[0].params[0]).to_s.to_sym])
               else
                 raise "TODO: integer"
             end
           end
         end
         
-        object_message "{integer: x}", :diff do |object|
+        def_object_message "{integer: x}", :diff do |object|
           plambda "y" do |value|
             case value[0].id
               when :integer, :decimal
                 PObject.new(:boolean, [(object.params[0] != value[0].params[0]).to_s.to_sym])
               else
@@ -120,6 +120,6 @@
         end
         
       end
     end
   end
-end
\ No newline at end of file
+end