-

libao/libao-async.rkt

@@ -198,7 +198,7 @@
         (os-semaphore-wait (ao-shm-pause-sem shm))
         (mutex-lock (ao-shm-mutex shm))
         (set-ao-shm-paused! shm pause)
-        (mutex-unlock (ao-shm-mutex.shm)))
+        (mutex-unlock (ao-shm-mutex shm)))
       (begin
         (displayln "Continuing ao play thread")
         (mutex-lock (ao-shm-mutex shm))