shithub: femtolisp

Download patch

ref: 88a9e52780db833bc794107409ff457df5d3e0e8
parent: 39e4d953fd4bf40977fa2e4305b92149693edac8
author: Sigrid Solveig Haflínudóttir <ftrvxmtrx@gmail.com>
date: Mon Nov 30 08:39:27 EST 2020

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