From d49c43dfbf225517a8a1256b9026431f7d50f2c0 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 27 Jan 2015 22:54:26 -0500
Subject: [PATCH] Fixed compiler warnings

---
 hs-src/Language/Scheme/Core.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/hs-src/Language/Scheme/Core.hs b/hs-src/Language/Scheme/Core.hs
index d3dcf42f..e098659e 100644
--- a/hs-src/Language/Scheme/Core.hs
+++ b/hs-src/Language/Scheme/Core.hs
@@ -957,15 +957,15 @@ apply cont (IOFunc f) args = do
   exec func = do
     func args
     `catchError` throwErrorWithCallHistory cont
-apply cont (CustFunc func) args = do
+apply cont (CustFunc f) args = do
   List dargs <- recDerefPtrs $ List args -- Deref any pointers
-  result <- exec func dargs
+  result <- exec f dargs
   case cont of
     Continuation {contClosure = cEnv} -> continueEval cEnv cont result Nothing
     _ -> return result
  where
-  exec func args = do
-    func args
+  exec func fargs = do
+    func fargs
     `catchError` throwErrorWithCallHistory cont
 apply cont (EvalFunc func) args = do
     -- An EvalFunc extends the evaluator so it needs access to the current 
@@ -980,8 +980,8 @@ apply cont (PrimitiveFunc func) args = do
     Continuation {contClosure = cEnv} -> continueEval cEnv cont result Nothing
     _ -> return result
  where
-  exec args = do
-    liftThrows $ func args
+  exec fargs = do
+    liftThrows $ func fargs
     `catchError` throwErrorWithCallHistory cont
 apply cont (Func aparams avarargs abody aclosure) args =
   if (num aparams /= num args && isNothing avarargs) ||