src/lexer-{proto,impl}.lisp, src/pset-parse.lisp: Other C operators.

[sod] / src / lexer-impl.lisp

diff --git a/src/lexer-impl.lisp b/src/lexer-impl.lisp
index de763712353260a26d72ddd82f918582775e5bfc..ccaca5c7254d336df73ece94b14dae4ec25ef651 100644 (file)
--- a/src/lexer-impl.lisp
+++ b/src/lexer-impl.lisp
@@ -188,6 +188,14 @@ (defmethod scanner-token ((scanner sod-token-scanner))
 
          ;; Some special punctuation sequences are single tokens.
          ("..." (values :ellipsis nil))
+         ("==" (values :eq))
+         ("!=" (values :ne))
+         ("<=" (values :le))
+         (">=" (values :ge))
+         ("&&" (values :and))
+         ("||" (values :or))
+         ("<<" (values :shl))
+         (">>" (values :shr))
 
          ;; Any other character is punctuation.
          (:any (values it nil))