From ff41e8cad9d613a1701ed550c690af0959cb6b4e Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Fri, 5 Feb 2016 13:50:30 -0500
Subject: audio: Adjust name of argument to load-sample.

* sly/audio.scm (load-sample): s/filename/file/
---
 sly/audio.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/sly/audio.scm b/sly/audio.scm
index 5a437a9..bac3ab0 100644
--- a/sly/audio.scm
+++ b/sly/audio.scm
@@ -64,10 +64,10 @@
   sample?
   (audio sample-audio))
 
-(define (load-sample filename)
-  "Load audio sample from FILENAME or return #f if the file cannot be
+(define (load-sample file)
+  "Load audio sample from FILE or return #f if the file cannot be
 loaded"
-  (let ((audio (sdl2:load-chunk filename)))
+  (let ((audio (sdl2:load-chunk file)))
     (if audio (make-sample audio) #f)))
 
 (define (set-sample-volume volume)
-- 
cgit v1.2.3