Fix syntax error

This commit is contained in:
Justin Ethier 2019-06-26 18:03:09 -04:00
parent 7f04517ce6
commit 0b4803a7ef

View file

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