Inline arguments into message

thus removing indirection for access
does affect rather much, several commits

lib/mom/builtin.rb

@@ -54,7 +54,7 @@ module Mom
       [ :div4, :<,:<= , :>=, :> , :div10 ].each do |f|   #div4 is just a forward declaration
         compilers << compiler_for( int_type , Integer , f)
       end
-      compilers
+      return compilers
     end
 
     def self.compiler_for( type , mod , name)

lib/mom/builtin/comparison.rb

@@ -12,8 +12,7 @@ module Mom
         builder.build do
           integer! << message[:receiver]
           integer.reduce_int
-          integer_reg! << message[:arguments]
-          integer_reg << integer_reg[Parfait::NamedList.type_length + 0] #"other" is at index 0
+          integer_reg! << message[:arg1] #"other" 
           integer_reg.reduce_int
           swap_names(:integer , :integer_reg) if(operator.to_s.start_with?('<') )
           integer.op :- , integer_reg

lib/mom/builtin/get_internal_byte.rb

@@ -6,8 +6,7 @@ module Mom
         integer_tmp = builder.allocate_int
         builder.build do
           object! << message[:receiver]
-          integer! << message[:arguments]
-          integer << integer[Parfait::NamedList.type_length + 0] #"at" is at index 0
+          integer! << message[:arg1] #"at" 
           integer.reduce_int
           object <= object[integer]
           integer_tmp[Parfait::Integer.integer_index] << object

lib/mom/builtin/get_internal_word.rb

@@ -4,8 +4,7 @@ module Mom
       def to_risc(compiler)
         compiler.builder(compiler.source).build do
           object! << message[:receiver]
-          integer! << message[:arguments]
-          integer << integer[Parfait::NamedList.type_length + 0] #"at" is at index 0
+          integer! << message[:arg1] #"at" is at index 0
           integer.reduce_int
           object << object[integer]
           message[:return_value] << object

lib/mom/builtin/operator.rb

@@ -14,8 +14,7 @@ module Mom
         builder.build do
           integer! << message[:receiver]
           integer.reduce_int
-          integer_reg! << message[:arguments]
-          integer_reg << integer_reg[Parfait::NamedList.type_length + 0] #"other" is at index 0
+          integer_reg! << message[:arg1] #"other" 
           integer_reg.reduce_int
           integer.op operator , integer_reg
           integer_tmp[Parfait::Integer.integer_index] << integer

lib/mom/builtin/set_internal_byte.rb

@@ -4,10 +4,9 @@ module Mom
       def to_risc(compiler)
         compiler.builder(compiler.source).build do
           word! << message[:receiver]
-          integer! << message[:arguments]
-          integer_reg! << integer[Parfait::NamedList.type_length + 1] #"value" is at index 1
+          integer_reg! << message[:arg2] #VALUE
           message[:return_value] << integer_reg
-          integer << integer[Parfait::NamedList.type_length + 0] #"at" is at index 0
+          integer! << message[:arg1] #"index" 
           integer.reduce_int
           integer_reg.reduce_int
           word[integer] <= integer_reg

lib/mom/builtin/set_internal_word.rb

@@ -4,9 +4,8 @@ module Mom
       def to_risc(compiler)
         compiler.builder(compiler.source).build do
           object! << message[:receiver]
-          integer! << message[:arguments]
-          object_reg! << integer[Parfait::NamedList.type_length + 1] #"value" is at index 1
-          integer << integer[Parfait::NamedList.type_length + 0] #"at" is at index 0
+          integer! << message[:arg1] # "index"
+          object_reg! << message[:arg2]#"value"
           integer.reduce_int
           object[integer] << object_reg
           message[:return_value] << object_reg