From a0769c49474bc4e145e7a9334c58118104c7ae69 Mon Sep 17 00:00:00 2001
From: scheme <>
Date: Thu, 25 Jan 2001 22:29:47 +0000
Subject: [PATCH] Fixed sound for Linux

original commit: 2f76463a68494d393921e07432d85ebdd3b89d16
---
 src/mred/wrap/mred.ss | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index d9e1f167..b3762180 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -5163,15 +5163,15 @@
       (begin
 	(unless (string? f)
 	  (raise-type-error 'play-sound "string" f))
-	(let* ([subpath (system-directory-subpath)]
+	(let* ([subpath (system-library-subpath)]
 	       [make-pattern (lambda (s) (string-append ".*" s ".*"))]
 	       [b 
 		(box 
 		 (cond 
-		  [(regexp-match (make-pattern "linux"))
+		  [(regexp-match (make-pattern "linux") subpath)
 		   ; use play interface to sox
 		   "play ~s"]
-		  [(regexp-match (make-pattern "solaris"))
+		  [(regexp-match (make-pattern "solaris") subpath)
 		   "audioplay ~s"]
 		  [else
 		   (raise-mismatch-error