diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2009-11-28 04:15:19 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2009-11-28 04:15:19 -0800 |
commit | 788cace2cb783db0b4df6338f89e6b026ae23e9b (patch) | |
tree | 62ef4b70c7631651f90da8af58c78bfe7877f454 /lib.c | |
parent | ec1f42927b870770d77aa196bdf7adfff4475210 (diff) | |
download | txr-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.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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)); } |