Fix a dumb of my dumb

This commit is contained in:
Joshua Suskalo 2022-11-29 20:21:34 -06:00
parent 955063b1ba
commit 5ccf369477
No known key found for this signature in database
GPG key ID: 9B6BA586EFF1B9F0

View file

@ -178,8 +178,9 @@
(.whileAlive (.whileAlive
^MemorySession session# ^MemorySession session#
(^:once fn* [] (^:once fn* []
(with-acquired [~@(rest sessions)] (vreset! res#
(vreset! res# (do ~@body))))) (with-acquired [~@(rest sessions)]
~@body))))
@res#) @res#)
`(do ~@body))) `(do ~@body)))
(s/fdef with-acquired (s/fdef with-acquired