summaryrefslogtreecommitdiffstats
path: root/txr.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 /txr.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 'txr.c')
-rw-r--r--txr.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/txr.c b/txr.c
index e3c1c59e..83ef0233 100644
--- a/txr.c
+++ b/txr.c
@@ -53,14 +53,14 @@ val spec_file_str;
* pool, which sets an OOM flag. Program can check flag
* and gracefully terminate instead of aborting like this.
*/
-void *oom_realloc_handler(void *old, size_t size)
+static void *oom_realloc_handler(void *old, size_t size)
{
format(std_error, lit("~a: out of memory\n"), prog_string, nao);
put_line(std_error, lit("false"));
abort();
}
-void help(void)
+static void help(void)
{
val text = lit(
"\n"
@@ -112,13 +112,13 @@ void help(void)
format(std_output, text, auto_str(version), prog_string, nao);
}
-void hint(void)
+static void hint(void)
{
format(std_error, lit("~a: incorrect arguments: try --help\n"),
prog_string, nao);
}
-val remove_hash_bang_line(val spec)
+static val remove_hash_bang_line(val spec)
{
if (!consp(spec))
return spec;