From bcf8da09fe0aa3384abb36fbd6cf9f07f3b5aa88 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 9 Sep 2005 00:10:40 +0000 Subject: [PATCH] play-sound should deal with paths svn: r808 --- collects/mred/private/misc.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mred/private/misc.ss b/collects/mred/private/misc.ss index fe691a6b56..e84a932b3a 100644 --- a/collects/mred/private/misc.ss +++ b/collects/mred/private/misc.ss @@ -55,7 +55,7 @@ (define (play-sound f async?) (if (not (eq? (system-type) 'unix)) (wx:play-sound f async?) - (let ([f (if (path? f) (path->string f))]) + (let ([f (if (path? f) (path->string f) f)]) (unless (string? f) (raise-type-error 'play-sound "string" f)) (let* ([subpath (path->string (system-library-subpath))] @@ -77,7 +77,7 @@ (when (and r (string? r)) (set-box! b r))) ((if async? (lambda (x) (process x) #t) system) - (format (unbox b) (expand-path f))))))) + (format (unbox b) (path->string (expand-path f)))))))) ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Timers: