From 84663d0952b1f5d74e98bd4e80625916f2f6c452 Mon Sep 17 00:00:00 2001 From: Scott Richmond Date: Tue, 15 Feb 2022 13:16:46 -0500 Subject: [PATCH] Add `=` (as replacement for `<-` now that we have `let`) --- src/ludus/scanner.clj | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/ludus/scanner.clj b/src/ludus/scanner.clj index 7842002..d1899d5 100644 --- a/src/ludus/scanner.clj +++ b/src/ludus/scanner.clj @@ -215,6 +215,7 @@ \, (add-token scanner ::token/comma) \newline (add-token (update scanner ::line inc) ::token/newline) \\ (add-token scanner ::token/backslash) + \= (add-token scanner ::token/equals) ;; two-character tokens ;; -> @@ -223,6 +224,7 @@ (digit? next) (add-number char scanner) :else (add-error scanner (str "Expected -> or negative number. Got " char next))) + ;; at current we're not using this ;; <- \< (if (= next \-) (add-token (advance scanner) ::token/larrow)