 ;; ============= Context ===========================================
 (defn context-properties [props]
   (reduce (fn [^cl_context_properties cp [p v]]
-            (doto cp (.addProperty (context-prop-names p) v)))
+            (doto cp (.addProperty (context-prop-table p) v)))
           (cl_context_properties.)
           props))
 

    {:version (info 2)
     :vendor-specific-info (get info 3)}))

;;TODO
(defn info-parent-device [device]
  (info-long* CL/clGetDeviceInfo device CL/CL_DEVICE_PARENT_DEVICE))

;;TODO
(defn info-partition-affinity-domain [device]
  (info-long* CL/clGetDeviceInfo device CL/CL_DEVICE_PARTITION_AFFINITY_DOMAIN))

(defn info-partition-max-sub-devices [device]
  (info-int* CL/clGetDeviceInfo device CL/CL_DEVICE_PARTITION_MAX_SUB_DEVICES))

(def device-types-table
  (into {} (map (fn [[k v]] [v k]) device-types)))

(def platform-info-table
  {:profile CL/CL_PLATFORM_PROFILE
   :version CL/CL_PLATFORM_VERSION
   :name CL/CL_PLATFORM_NAME
