smaller clean-ups

lib/parfait/dictionary.rb

@@ -34,7 +34,7 @@ module Parfait
     end
 
     # get a value fot the given key
-    # key ientity is checked with == not === (ie equals not identity)
+    # key identity is checked with == not === (ie equals not identity)
     # return nil if no such key
     def get(key)
       index = key_index(key)

lib/parfait/module.rb

@@ -40,7 +40,7 @@ module Parfait
     def create_instance_method  name , arg_names
       clazz = Space.object_space.get_class_by_name(self.name)
       raise "??? #{self.name}" unless clazz
-      Method.new( clazz , name , arg_names )
+      Method.new_object( clazz , name , arg_names )
     end
 
     # this needs to be done during booting as we can't have all the classes and superclassses
@@ -51,7 +51,7 @@ module Parfait
     end
 
     def get_instance_method fname
-      raise "uups #{fname}.#{fname.class}" unless fname.is_a? Word
+      raise "uups #{fname}.#{fname.class}" unless fname.is_a?(Word) or fname.is_a?(String)
       @instance_methods.detect{ |fun| fun.name == fname }
     end
 

lib/parfait/object.rb

@@ -47,8 +47,9 @@ module Parfait
     end
 
     def get_layout()
-      #puts "ME #{self.class}"
-      return internal_object_get(LAYOUT_INDEX)
+      l = internal_object_get(LAYOUT_INDEX)
+      raise "No layout #{self.class}" unless l
+      return l
     end
 
     def get_instance_variables

lib/parfait/space.rb

@@ -40,7 +40,7 @@ module Parfait
       @frames = List.new_object
       @messages = List.new_object
       counter = 0
-      while( counter < 100)
+      while( counter < 5)
         @frames.push Frame.new_object
         @messages.push Message.new_object
         counter = counter + 1
@@ -65,12 +65,16 @@ module Parfait
       @objects.push o
     end
 
+    def get_main
+      kernel = get_class_by_name "Kernel"
+      kernel.get_instance_method "main"
+    end
+
     # this is the way to instantiate classes (not Parfait::Class.new)
     # so we get and keep exactly one per name
     def get_class_by_name name
-      raise "uups #{name}.#{name.class}" unless name.is_a? Word
+      raise "uups #{name}.#{name.class}" unless name.is_a?(Word) or name.is_a?(String)
       c = @classes[name]
-      raise "uups " if name.is_a? String
       puts "MISS, no class #{name} #{name.class}" unless c # " #{@classes}"
       c
     end