play-sound should deal with paths

svn: r807
2005-09-09 00:01:08 +00:00 · 2005-09-09 00:01:08 +00:00 · bd023260c2
commit bd023260c2
parent 39a44d0849
1 changed files with 2 additions and 2 deletions
--- a/collects/mred/private/misc.ss
+++ b/collects/mred/private/misc.ss
@ -55,10 +55,10 @@
  (define (play-sound f async?)
    (if (not (eq? (system-type) 'unix))
 	(wx:play-sound f async?)
-	(begin
+	(let ([f (if (path? f) (path->string f))])
 	  (unless (string? f)
 	    (raise-type-error 'play-sound "string" f))
-	  (let* ([subpath (system-library-subpath)]
+	  (let* ([subpath (path->string (system-library-subpath))]
 		 [make-pattern (lambda (s) (string-append ".*" s ".*"))]
 		 [b (box 
 		     (cond