more some tests

lib/soml/parfait/layout.soml

@@ -1,7 +1,6 @@
 class Layout < Object
-
-  Class object_class()
-    return self.object_class
-  end
+  field Class   object_class
+  field List    instance_methods
+  field Integer indexed_length
 
 end

lib/soml/parfait/object.soml

@@ -6,7 +6,12 @@ class Object
 
   Class get_class()
     Layout l = self.layout
-    return l.object_class()
+    return l.object_class
   end
 
+  Word get_class_name()
+    Layout l = self.layout
+    Class c = l.object_class
+    return c.name
+  end
 end