              (str "Invalid input variable: "
                   attribute
                   " for program"
-                  (if-let [id (pr-str (:id program))]
-                    (str " " id ".")
+                  (if-let [id (:id program)]
+                    (str " " (pr-str id) ".")
                     ".")
-                  ". Valid inputs: " (:inputs program)))))
+                  " Valid inputs: " (:inputs program)))))
   (let [location (attribute-location gl program attribute)
         {:keys [size type normalized? stride offset]}
         ((or (:layout input) default-layout) attribute)]

             (str "Invalid input variable: "
                  uniform
                  " for program"
                  (if-let [id (pr-str (:id program))]
                    (str " " id ".")
                    ".")
                  ". Valid inputs: " (:inputs program)))))
  (let [location (uniform-location gl program uniform)
        type (:type uniform)
        data (:data input)]

             (str "Invalid input variable: "
                  uniform
                  " for program"
                  (if-let [id (:id program)]
                    (str " " (pr-str id) ".")
                    ".")
                  " Valid inputs: " (:inputs program)))))
  (let [location (uniform-location gl program uniform)
        id       (:texture-id texture)
        target   (:target texture)]
