twc/ludus
4
0
Fork 0
Code Issues 32 Pull Requests Packages Projects 8 Releases Wiki Activity

Add = (as replacement for <- now that we have let)

Browse Source
This commit is contained in:
Scott Richmond 2022-02-15 13:16:46 -05:00
parent 25da37d093
commit 84663d0952
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ludus/scanner.clj
View File

@ -215,6 +215,7 @@
\, (add-token scanner ::token/comma) \, (add-token scanner ::token/comma)
\newline (add-token (update scanner ::line inc) ::token/newline) \newline (add-token (update scanner ::line inc) ::token/newline)
\\ (add-token scanner ::token/backslash) \\ (add-token scanner ::token/backslash)
\= (add-token scanner ::token/equals)
;; two-character tokens ;; two-character tokens
;; -> ;; ->
@ -223,6 +224,7 @@
(digit? next) (add-number char scanner) (digit? next) (add-number char scanner)
:else (add-error scanner (str "Expected -> or negative number. Got " char next))) :else (add-error scanner (str "Expected -> or negative number. Got " char next)))
;; at current we're not using this
;; <- ;; <-
\< (if (= next \-) \< (if (= next \-)
(add-token (advance scanner) ::token/larrow) (add-token (advance scanner) ::token/larrow)