simple log to store.
This commit is contained in:
+1
-1
@@ -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))
|
||||
)
|
||||
|
||||
Reference in New Issue
Block a user