Corrected typo in generated-sublattice

tomhanika · Jun 6, 2024 · 47af04c · 47af04c
1 parent 3492d4b
commit 47af04c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/main/clojure/conexp/fca/lattices.clj b/src/main/clojure/conexp/fca/lattices.clj
@@ -468,7 +468,7 @@
     (loop [X generators]
       (let [X-new (clojure.set/union (into #{} (for [a X b X] (lat-join a b)))
                                      (into #{} (for [a X b X] (lat-meet a b))))]
-        (if (= X X-new) (make-lattice X lat-meet lat-join
+        (if (= X X-new) (make-lattice X lat-meet lat-join)
                         (recur X-new)))))
 )