From 4a71d6d387e332431d8a53bca4f37a32d12b647a Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 30 Nov 2015 06:11:44 -0800
Subject: Rename interp_fun function.

* eval.c (interp_fun): Function renamed to funcall_interp.

* eval.h (interp_fun): Declaration updated.

* lib.c (generic_funcall, funcall, funcall1, funcall2,
funcall3, funcall4): Calls to interp_fun updated.
---
 eval.c |  2 +-
 eval.h |  2 +-
 lib.c  | 14 +++++++-------
 3 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/eval.c b/eval.c
index 96226331..3accea39 100644
--- a/eval.c
+++ b/eval.c
@@ -1023,7 +1023,7 @@ val set_dyn_env(val de)
   return old;
 }
 
-val interp_fun(val env, val fun, struct args *args)
+val funcall_interp(val env, val fun, struct args *args)
 {
   val def = cdr(fun);
   val params = car(def);
diff --git a/eval.h b/eval.h
index 06bae699..792c6efc 100644
--- a/eval.h
+++ b/eval.h
@@ -43,7 +43,7 @@ loc lookup_var_l(val env, val sym);
 loc lookup_global_var_l(val sym);
 val lookup_fun(val env, val sym);
 val set_dyn_env(val de);
-val interp_fun(val env, val fun, struct args *);
+val funcall_interp(val env, val fun, struct args *);
 val boundp(val sym);
 val fboundp(val sym);
 val special_operator_p(val sym);
diff --git a/lib.c b/lib.c
index d0f3ef3f..f5ec840f 100644
--- a/lib.c
+++ b/lib.c
@@ -4950,7 +4950,7 @@ val generic_funcall(val fun, struct args *args_in)
 
     switch (fun->f.functype) {
     case FINTERP:
-      return interp_fun(fun->f.env, fun->f.f.interp_fun, args);
+      return funcall_interp(fun->f.env, fun->f.f.interp_fun, args);
     case F0:
       return fun->f.f.f0v(fun->f.env, args);
     case F1:
@@ -5000,7 +5000,7 @@ val funcall(val fun)
 
     switch (fun->f.functype) {
     case FINTERP:
-      return interp_fun(fun->f.env, fun->f.f.interp_fun, args);
+      return funcall_interp(fun->f.env, fun->f.f.interp_fun, args);
     case F0:
       return fun->f.f.f0v(fun->f.env, args);
     case N0:
@@ -5035,7 +5035,7 @@ val funcall1(val fun, val arg)
     switch (fun->f.functype) {
     case FINTERP:
       args_add(args, arg);
-      return interp_fun(fun->f.env, fun->f.f.interp_fun, args);
+      return funcall_interp(fun->f.env, fun->f.f.interp_fun, args);
     case F0:
       args_add(args, arg);
       return fun->f.f.f0v(fun->f.env, args);
@@ -5076,7 +5076,7 @@ val funcall2(val fun, val arg1, val arg2)
     switch (fun->f.functype) {
     case FINTERP:
       args_add2(args, arg1, arg2);
-      return interp_fun(fun->f.env, fun->f.f.interp_fun, args);
+      return funcall_interp(fun->f.env, fun->f.f.interp_fun, args);
     case F0:
       args_add2(args, arg1, arg2);
       return fun->f.f.f0v(fun->f.env, args);
@@ -5123,7 +5123,7 @@ val funcall3(val fun, val arg1, val arg2, val arg3)
     switch (fun->f.functype) {
     case FINTERP:
       args_add3(args, arg1, arg2, arg3);
-      return interp_fun(fun->f.env, fun->f.f.interp_fun, args);
+      return funcall_interp(fun->f.env, fun->f.f.interp_fun, args);
     case F0:
       args_add3(args, arg1, arg2, arg3);
       return fun->f.f.f0v(fun->f.env, args);
@@ -5176,8 +5176,8 @@ val funcall4(val fun, val arg1, val arg2, val arg3, val arg4)
     switch (fun->f.functype) {
     case FINTERP:
       args_add4(args, arg1, arg2, arg3, arg4);
-      return interp_fun(fun->f.env, fun->f.f.interp_fun,
-                        args);
+      return funcall_interp(fun->f.env, fun->f.f.interp_fun,
+                            args);
     case F0:
       args_add4(args, arg1, arg2, arg3, arg4);
       return fun->f.f.f0v(fun->f.env, args);
-- 
cgit v1.2.3