Allow ModelInstance constructors to work

2014-05-21 22:18:10 -04:00
parent 88bb6e54e3
commit 57673614d4
1 changed files with 3 additions and 3 deletions
--- a/src/play_clj/g3d.clj
+++ b/src/play_clj/g3d.clj
@@ -86,9 +86,9 @@
       (cond
         (string? arg1#)
         (ModelInstance. (model* arg1#))
-         (:object arg1#)
-         (ModelInstance. ^ModelInstance (:object arg1#))
-         (isa? arg1# ModelData)
+         (isa? (type arg1#) ModelEntity)
+         (ModelInstance. (. ^ModelInstance (:object arg1#) model) ~@(rest args))
+         (isa? (type arg1#) ModelData)
         (ModelInstance. ^Model (Model. ~@args))
         :else
         (ModelInstance. ~@args)))))