Don't re-evaluate the first arg passed to model
This commit is contained in:
@@ -99,9 +99,9 @@ object created by an external application.
|
|||||||
(isa? (type arg1#) ModelEntity)
|
(isa? (type arg1#) ModelEntity)
|
||||||
(ModelInstance. (. ^ModelInstance (:object arg1#) model) ~@(rest args))
|
(ModelInstance. (. ^ModelInstance (:object arg1#) model) ~@(rest args))
|
||||||
(isa? (type arg1#) ModelData)
|
(isa? (type arg1#) ModelData)
|
||||||
(ModelInstance. ^Model (Model. ~@args))
|
(ModelInstance. ^Model (Model. arg1# ~@(rest args)))
|
||||||
:else
|
:else
|
||||||
(ModelInstance. ~@args)))))
|
(ModelInstance. arg1# ~@(rest args))))))
|
||||||
|
|
||||||
(defmacro model!
|
(defmacro model!
|
||||||
"Calls a single method on a `model`."
|
"Calls a single method on a `model`."
|
||||||
|
|||||||
Reference in New Issue
Block a user