          (check-algorithm-all-cells-changed ~alg-name))
 
        (when (contains? ~specs :updates-link-2)
-         (check-algorithm-updates-link-2 ~alg-name)) ;ab hk bt rb s
+         (check-algorithm-updates-link-2 ~alg-name))
 
        (when (contains? ~specs :accurate-changes)
          (check-algorithm-cells-changed-is-accurate ~alg-name))

;; I thought this was failing just because there's a redundant update at the
;; end.  But no ... filtered that out, and apparently sometimes max increases
;; by 2.
(defspec distances-seq-max-advances-by-1 ;f
  10
  (prop/for-all [[maze start-coord] gen-maze-and-coord]
    (let [intermediates (butlast (all-updates #(distances-seq maze start-coord)))

      (= (set (grid/grid-coords grid))
         (set (keys change-counts))))))

(defspec distances-seq-each-intermediate-changes
  5
  (prop/for-all [[grid start-coord] gen-grid-and-coord]
    (let [maze (final-update #((algorithm-functions "binary-tree") grid))
