                                                                 incidence-matrix)
                                                        %)
                                      start))]
-    (map (fn [bitset]
-           [(to-hashset object-vector (a-prime bitset)),
-            (to-hashset attribute-vector bitset)])
-         intents)))
+    (if *concepts-do-conversion*
+      (map (fn [bitset]
+             [(to-hashset object-vector (a-prime bitset)),
+              (to-hashset attribute-vector bitset)])
+           intents)
+      intents)))
 
 
 ;;; Vychodil (:vychodil)

                                      empty-down-up
                                      0)
              (close! output))
      (map (fn [pair]
             [(to-hashset object-vector (first pair))
              (to-hashset attribute-vector (second pair))])
           (take-while (comp not nil?)
                       (repeatedly #(<!! output)))))))


;;; In-Close (:in-close)

      (.set ^BitSet (.get As 0) 0 (int object-count))
      (.add Bs 0 (BitSet.))
      (in-close attribute-count incidence-matrix As Bs last 0 0)
      (if *concepts-do-conversion*
        (map (fn [A B]
               [(to-hashset object-vector A),
                (to-hashset attribute-vector B)])
             As Bs)
        (map vector As Bs)))))


;;; Parallel-Close-by-One (:pcbo)
