Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix syntax error

Browse source
This commit is contained in:
Justin Ethier 2019-06-26 18:03:09 -04:00
parent 7f04517ce6
commit 0b4803a7ef
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
libs/cyclone/shared-queue.sld
View file

@ -150,7 +150,7 @@
(define (%queue-size q) (define (%queue-size q)
(let ((start (q:start q)) (let ((start (q:start q))
(end (q:end q)) (end (q:end q))
(capacity (vector-length (q:store)))) (capacity (vector-length (q:store q))))
(cond (cond
((< end start) (+ (- capacity start) end)) ((< end start) (+ (- capacity start) end))
((> end start) (- end start)) ((> end start) (- end start))