 
 
 (defmethod bind* :attribute [fns driver program element input]
-  (let [{:keys [attribute-input array-buffer]} fns]
-    (attribute-input
+  (let [{:keys [bind-attribute array-buffer]} fns]
+    (bind-attribute
      driver
      program
      element

                      (count data)))))))))

(defmethod bind* :uniform [fns driver program element input]
  (let [{:keys [uniform-input]} fns]
    (uniform-input
     driver
     program
     element



(defmethod bind* :texture-uniform [fns driver program variable input]
  (let [{:keys [bind-texture-uniform texture]} fns]
    (bind-texture-uniform
     driver
     program
     variable
