summaryrefslogtreecommitdiffstats
path: root/lib.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2009-11-28 04:15:19 -0800
committerKaz Kylheku <kaz@kylheku.com>2009-11-28 04:15:19 -0800
commit788cace2cb783db0b4df6338f89e6b026ae23e9b (patch)
tree62ef4b70c7631651f90da8af58c78bfe7877f454 /lib.c
parentec1f42927b870770d77aa196bdf7adfff4475210 (diff)
downloadtxr-788cace2cb783db0b4df6338f89e6b026ae23e9b.tar.gz
txr-788cace2cb783db0b4df6338f89e6b026ae23e9b.tar.bz2
txr-788cace2cb783db0b4df6338f89e6b026ae23e9b.zip
Code cleanup. All private functions static. Private stuff
in regex module not exposed in header. Etc.
Diffstat (limited to 'lib.c')
-rw-r--r--lib.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/lib.c b/lib.c
index ba484ed7..bb079f9c 100644
--- a/lib.c
+++ b/lib.c
@@ -344,7 +344,7 @@ val nappend2(val list1, val list2)
return list1;
}
-val flatten_helper(val env, val item)
+static val flatten_helper(val env, val item)
{
return flatten(item);
}
@@ -1337,7 +1337,7 @@ val reduce_left(val fun, val list, val init, val key)
return init;
}
-val do_bind2(val fcons, val arg2)
+static val do_bind2(val fcons, val arg2)
{
return funcall2(car(fcons), cdr(fcons), arg2);
}
@@ -1347,7 +1347,7 @@ val bind2(val fun2, val arg)
return func_f1(cons(fun2, arg), do_bind2);
}
-val do_bind2other(val fcons, val arg1)
+static val do_bind2other(val fcons, val arg1)
{
return funcall2(car(fcons), arg1, cdr(fcons));
}