hans/audio-library-manager
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

last commit was wrongly placed

Browse Source
This commit is contained in:
Hans Dijkema
2026-06-30 12:44:14 +02:00
parent 3903502bf3
commit 26b9fa6f32
2 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
private/file-walker.rkt
+4 -3
View File
@@ -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))
)