using class fields

instead of internal_get

lib/soml/parfait/class.soml

@@ -1,5 +1,11 @@
 class Class < Object
+  field List instance_methods
+  field Layout object_layout
+  field Word name
+  field Word super_class_name
+
+
   Word get_name()
-    return get_internal(4)
+    return self.name
   end
 end

lib/soml/parfait/layout.soml

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

lib/soml/parfait/object.soml

@@ -1,11 +1,12 @@
 class Object
+  field Layout layout
 
   Layout get_layout()
-    return get_internal(1)
+    return self.layout
   end
 
   Class get_class()
-    Layout l = get_layout()
+    Layout l = self.layout
     return l.object_class()
   end