(luna-make-entity-function): Send `initialize-instance'.

[elisp/flim.git] / luna.el

diff --git a/luna.el b/luna.el
index abc3c69..bc23bc5 100644 (file)
--- a/luna.el
+++ b/luna.el
@@ -107,6 +107,7 @@ It must be plist and each slot name must have prefix `:'."
       (if s
          (aset v (get s 'luna-member-index) i)
        ))
+    (luna-send v 'initialize-instance v)
     v))
 
 (defsubst luna-class-find-member (class member-name)