simple log to store.

This commit is contained in:
2026-08-03 11:11:20 +02:00
parent 5869df9f59
commit 318620c854
4 changed files with 308 additions and 101 deletions
+1 -1
View File
@@ -82,7 +82,7 @@
(if (> (queue-length queue) ml)
(begin
(dequeue! queue)
(set-sl-store-length! store (- sl-store-length store) 1)
(set-sl-store-length! store (- sl-store-length store 1))
(loop))
#t))
)