'!' optimizations

1 files changed, 7 insertions, 4 deletions

diff --git a/lex.c b/lex.c
index f82f255..a41bd0d 100644
--- a/lex.c
+++ b/lex.c
@@ -376,10 +376,13 @@ Begin:
    case ' ': case '\r': case '\t':
       goto Begin;
       break;
-   case '!': case '(': case ')': case ',':
-   case ':': case ';': case '?': case '[':
-   case ']': case '{': case '}': case '~':
-   case '$': case '@': case '`': case '\\': case TKEOF: case '\n':
+   case '(': case ')': case ',': case ':':
+   case ';': case '?': case '[': case ']':
+   case '{': case '}': case '~': case '$':
+   case '@': case '`': case '\\': case TKEOF: case '\n':
+      RET(c);
+   case '!':
+      if (match(pr, '=')) RET(TKNEQ);
       RET(c);
    case '#':
       if (match(pr, '#')) RET(TKPPCAT);