* eval.c (eval_init): Fix incorrect registration of

list_star_intrinsic, diagnosed by compiler.

2 files changed, 6 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index e57911b1..b5056ac5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2014-02-03  Kaz Kylheku  <kaz@kylheku.com>
+
+	* eval.c (eval_init): Fix incorrect registration of
+	list_star_intrinsic, diagnosed by compiler.
+
 2014-02-02  Kaz Kylheku  <kaz@kylheku.com>
 
 	Adding list* since we get it "for free" thanks to the
diff --git a/eval.c b/eval.c
index cff8b997..d1f27cfd 100644
--- a/eval.c
+++ b/eval.c
@@ -2385,7 +2385,7 @@ void eval_init(void)
   reg_fun(append_s, func_n0v(appendv));
   reg_fun(intern(lit("append*"), user_package), func_n0v(lazy_appendv));
   reg_fun(list_s, func_n0v(identity));
-  reg_fun(intern(lit("list*"), user_package), func_n1v(list_star_intrinsic));
+  reg_fun(intern(lit("list*"), user_package), func_n0v(list_star_intrinsic));
   reg_fun(intern(lit("identity"), user_package), identity_f);
   reg_fun(intern(lit("typeof"), user_package), func_n1(typeof));