1 files changed, 8 insertions, 0 deletions
diff --git a/parser.c b/parser.c
index 4979ad0d..7e7b0ddb 100644
--- a/parser.c
+++ b/parser.c
@@ -1093,6 +1093,8 @@ static wchar_t *provide_atom(lino_t *l, const wchar_t *str, int n, void *ctx)
 
 static val repl_intr(val signo, val async_p)
 {
+  (void) signo;
+  (void) async_p;
   uw_throw(intr_s, lit("intr"));
 }
 
@@ -1107,6 +1109,8 @@ static val read_eval_ret_last(val env, val counter,
   val saved_dyn_env = set_dyn_env(make_env(nil, nil, dyn_env));
   env_vbind(dyn_env, load_recursive_s, t);
 
+  (void) env;
+
   for (;; lineno = succ(lineno)) {
     val form = lisp_parse(in_stream, out_stream, error_val, name, lineno);
     val parser = get_parser(in_stream);
@@ -1149,6 +1153,8 @@ static val repl_warning(val out_stream, val exc, struct args *rest)
 {
   val args = args_get_list(rest);
 
+  (void) exc;
+
   if (cdr(args))
     uw_defer_warning(args);
   else
@@ -1170,6 +1176,8 @@ static int is_balanced_line(const wchar_t *line, void *ctx)
   state[sp] = ST_START;
   wchar_t ch;
 
+  (void) ctx;
+
   while ((ch = *line++) != 0) {
   again:
     if (sp >= 30)