pause behavior

This commit is contained in:
2026-05-07 14:56:17 +02:00
parent f0b2d7a6b3
commit d531f9caef
+2 -2
View File
@@ -1,4 +1,4 @@
#lang racket/base (#lang racket/base
;; Pure Racket replacement for ao_playasync.c as used by libao.rkt. ;; Pure Racket replacement for ao_playasync.c as used by libao.rkt.
;; ;;
@@ -160,7 +160,7 @@
#:mutable #:mutable
) )
(define ao-buf-ms 100) ;; Playback buffer of 0.5s (define ao-buf-ms 250) ;; Playback buffer of 0.25s
(define (get h ms-wait) (define (get h ms-wait)
(let ((el (if (<= ms-wait 0) (let ((el (if (<= ms-wait 0)