From 5e46b36476c57418c0bd3cfced2d4c63eb7d1048 Mon Sep 17 00:00:00 2001
From: lemon <lsof@mailbox.org>
Date: Wed, 31 May 2023 08:57:22 +0200
Subject: '!' optimizations

---
 lex.c | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'lex.c')

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);
-- 
cgit v1.2.3