suppress warnings

picrin-scheme · Aug 26, 2015 · 98034b5 · 98034b5
1 parent 06af026
commit 98034b5
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/extlib/benz/string.c b/extlib/benz/string.c
@@ -641,7 +641,7 @@ pic_str_list_to_string(pic_state *pic)
 {
   pic_str *str;
   pic_value list, e, it;
-  size_t i = 0;
+  size_t i;
   char *buf;
 
   pic_get_args(pic, "o", &list);
@@ -653,6 +653,7 @@ pic_str_list_to_string(pic_state *pic)
   buf = pic_malloc(pic, pic_length(pic, list));
 
   pic_try {
+    i = 0;
     pic_for_each (e, list, it) {
       pic_assert_type(pic, e, char);
 

diff --git a/src/main.c b/src/main.c
@@ -39,7 +39,7 @@ main(int argc, char *argv[], char **envp)
 {
   pic_state *pic;
   struct pic_lib *PICRIN_MAIN;
-  int status = 0;
+  int status;
 
   pic = pic_open(pic_default_allocf, NULL);
   pic_set_argv(pic, argc, argv, envp);
@@ -50,6 +50,8 @@ main(int argc, char *argv[], char **envp)
     PICRIN_MAIN = pic_find_library(pic, pic_read_cstr(pic, "(picrin main)"));
 
     pic_funcall(pic, PICRIN_MAIN, "main", pic_nil_value());
+
+    status = 0;
   }
   pic_catch {
     pic_print_backtrace(pic, xstderr);