last commit was wrongly placed

audio-manager.rkt

@@ -358,6 +358,11 @@
 
     (define (log-processed-file base-path path info)
       (dbg-am "processing ~a" path)
+
+      (let ((re #px"Willi Bos"))
+	(when (regexp-match re (path->string path))
+	  (info-am "Hey: ~a - ~a" (basename path) info)))
+
       (if (eq? (hash-ref info 'type) 'dir)
           (set! processed-dirs (+ processed-dirs 1))
           (begin

private/file-walker.rkt

@@ -142,7 +142,7 @@
                        (let ((perc (quotient (* k 100) count)))
                          (when (and (= (remainder perc 10) 0) (> perc last-perc))
                            (set! last-perc perc)
-                           (info-am "get-deleteed: ~a%" perc)))
+                           (info-am "get-deleted: ~a%" perc)))
                        (let ((v (store-ref db-store key)))
                          (eq? (hash-ref v 'file-db) 'unknown)))
                      keys))))
@@ -166,8 +166,6 @@
                                    )
                                  (set! walker-count (+ walker-count 1))
                                  (let-values (((base-path* path* info*) (file-admin base-path path info)))
-                                   (when (eq? info* #f)
-                                     (store-commit db-store))
                                    (values base-path* path* info*)))))
          (deleted #f))
     (init-db-sweep)
@@ -182,7 +180,10 @@
                       (let-values (((base-path path info) (fw)))
                         (if (eq? info #f)
                             (begin
+			      (info-am "LAST COMMIT")
+                              (store-commit db-store)
                               (set! deleted (get-deleted))
+			      (info-am "Got ~a deleted entries" (length deleted))
                               (f))
                             (values base-path path info))
                         )