identity*: fix wrong argument index type.

* lib.c (identity_star): The args_more function requires
an index which is a cnum, not int.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index 57ea4128..5cd5be4f 100644
--- a/lib.c
+++ b/lib.c
@@ -167,7 +167,7 @@ val identity(val obj)
 
 static val identity_star(varg args)
 {
-  int index = 0;
+  cnum index = 0;
   if (args_more(args, index))
     return args_get(args, &index);
   return nil;