Don't re-evaluate the first arg passed to model

This commit is contained in:
oakes
2014-05-22 16:14:35 -04:00
parent 0cb0af6fb7
commit bfd9f71b47

View File

@@ -99,9 +99,9 @@ object created by an external application.
(isa? (type arg1#) ModelEntity)
(ModelInstance. (. ^ModelInstance (:object arg1#) model) ~@(rest args))
(isa? (type arg1#) ModelData)
(ModelInstance. ^Model (Model. ~@args))
(ModelInstance. ^Model (Model. arg1# ~@(rest args)))
:else
(ModelInstance. ~@args)))))
(ModelInstance. arg1# ~@(rest args))))))
(defmacro model!
"Calls a single method on a `model`."