more renaming of frame

test/typed/parfait/test_named_list.rb

@@ -3,17 +3,17 @@ require_relative "../helper"
 class TestNamedLists < MiniTest::Test
 
   def setup
-    @frame = Register.machine.boot.space.first_message.frame
-    @type = @frame.get_type
+    @named_list = Register.machine.boot.space.first_message.named_list
+    @type = @named_list.get_type
   end
 
-  def test_frame_get_type
+  def test_named_list_get_type
     assert_equal Parfait::Type , @type.class
   end
 
-  def test_frame_next_set
-    @frame.next_list = :next_list
-    assert_equal :next_list , @frame.next_list
+  def test_named_list_next_set
+    @named_list.next_list = :next_list
+    assert_equal :next_list , @named_list.next_list
   end
 
 end

test/typed/parfait/test_space.rb

@@ -60,7 +60,7 @@ class TestSpace < MiniTest::Test
     all = []
     while mess
       all << mess
-      assert mess.frame
+      assert mess.named_list
       mess = mess.next_message
     end
     assert_equal all.length , all.uniq.length

test/typed/statements/test_assign.rb

@@ -40,7 +40,7 @@ class TestAssignStatement < MiniTest::Test
     check
   end
 
-  def test_frame_get
+  def test_named_list_get
     Register.machine.space.get_main.add_local(:r , :Integer)
     @input = s(:statements, s(:assignment, s(:name, :r), s(:int, 5)), s(:return, s(:name, :r)))
     @expect =  [Label, LoadConstant, GetSlot, SetSlot, GetSlot, GetSlot, SetSlot ,
@@ -48,7 +48,7 @@ class TestAssignStatement < MiniTest::Test
     was = check
     get = was.next(5)
     assert_equal GetSlot , get.class
-    assert_equal 4, get.index , "Get to frame index must be offset, not #{get.index}"
+    assert_equal 4, get.index , "Get to named_list index must be offset, not #{get.index}"
   end
 
   def test_assign_int
@@ -58,7 +58,7 @@ class TestAssignStatement < MiniTest::Test
     was = check
     set = was.next(3)
     assert_equal SetSlot , set.class
-    assert_equal 4, set.index , "Set to frame index must be offset, not #{set.index}"
+    assert_equal 4, set.index , "Set to named_list index must be offset, not #{set.index}"
   end
 
   def test_assign_arg
@@ -79,7 +79,7 @@ class TestAssignStatement < MiniTest::Test
     was = check
     get = was.next(1)
     assert_equal GetSlot , get.class
-    assert_equal 10, get.index , "Get to frame index must be offset, not #{get.index}"
+    assert_equal 10, get.index , "Get to named_list index must be offset, not #{get.index}"
   end
 end
 end

test/typed/statements/test_fields.rb

@@ -5,7 +5,7 @@ module Register
   class TestFieldStatement < MiniTest::Test
     include Statements
 
-    def test_field_frame
+    def test_field_named_list
       Register.machine.space.get_main.add_local( :m , :Message)
       @input = s(:statements,  s(:return, s(:field_access,
                                 s(:receiver, s(:name, :m)), s(:field, s(:name, :name)))))