shithub: femtolisp

Info  •  Files  •  Log  •  Branches

fix more warnings

--- a/flmain.c

+++ b/flmain.c

@@ -60,8 +60,8 @@

         if (fl_load_system_image(f))

             return 1;

-        (void)fl_applyn(1, symbol_value(symbol("__start")),

-                        argv_list(argc, argv));

+        fl_applyn(1, symbol_value(symbol("__start")),

+                  argv_list(argc, argv));

     }

     FL_CATCH_EXTERN {

         ios_puts("fatal error:\n", ios_stderr);

--- a/read.c

+++ b/read.c

@@ -239,7 +239,7 @@

             else if (cval >= 'a' && cval <= 'z') {

                 read_token((char)cval, 0);

                 tokval = symbol(buf);

-                if (buf[1] == '\0')       /* one character */;

+                if (buf[1] != '\0') { USED(cval); } /* one character */

                 else if (tokval == nulsym)        cval = 0x00;

                 else if (tokval == alarmsym)      cval = 0x07;

                 else if (tokval == backspacesym)  cval = 0x08;

@@ -553,7 +553,8 @@

         }

     }

     take();

-    POP();

+    c = POP();

+    USED(c);

 }

 // label is the backreference we'd like to fix up with this read