ignerr: fix unused warning

The ignerr intrinsic macro generates code that has
an unused variable. We fix it by turning it into
a gensym, since unused warnings aren't generated
for gensyms.

* eval.c (unused_arg_s): New static variable.
(me_ignerr): Use the value of unused_arg_s instead
of error_s, for the argument of the catch clause.
(eval_init): gc-protect unused_arg_s.
(eval_late_init): New function in which we initialized
unused_arg_s. The gensym function cannot be used
during eval_init.

* eval.h (eval_late_init): Declared.

* lib.c (init): Call eval_late_init after some other
late initializations.

1 files changed, 1 insertions, 0 deletions

diff --git a/eval.h b/eval.h
index dac4b1c1..a927666f 100644
--- a/eval.h
+++ b/eval.h
@@ -101,4 +101,5 @@ val pprinl(val obj, val stream);
 val tprint(val obj, val out);
 
 void eval_init(void);
+void eval_late_init(void);
 void eval_compat_fixup(int compat_ver);