debuggings
[software/python-on-guile.git] / modules / oop / pf-objects.scm
index 25c49603ce16f902e5250f452797ca8df752c790..579a148b817919fef8ac148f9286c888498e5d8a 100644 (file)
@@ -372,15 +372,16 @@ explicitly tell it to not update etc.
                      (apply it class x)
                      (make-object class meta goops))))
 
-    (aif it (ficap class '__init__ #f)
-         (apply it obj x)
-         #f)
+    (when (struct? obj)
+      (aif it (ficap class '__init__ #f)
+          (apply it obj x)
+          #f)
 
-    (slot-set! obj 'procedure
-               (lambda x
-                 (aif it (ref obj '__call__)
-                      (apply it x)
-                      (error "not a callable object"))))
+      (slot-set! obj 'procedure
+                (lambda x
+                  (aif it (ref obj '__call__)
+                       (apply it x)
+                       (error "not a callable object")))))
     
     obj))