shithub: femtolisp

Info  •  Files  •  Log  •  Branches

peek: fix wrong condition for a single char

--- 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') { USED(cval); } /* 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;