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

:rarrow -> :arrow

Browse Source
This commit is contained in:
Scott Richmond 2024-05-08 13:59:46 -04:00
parent c36a140c6b
commit cdb71a8122
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
janet/scanner.janet
View File

@ -264,7 +264,7 @@
## two-character tokens ## two-character tokens
## -> ## ->
"-" (cond "-" (cond
(= next ">") (add-token (advance scanner) :rarrow) (= next ">") (add-token (advance scanner) :arrow)
(digit? next) (add-number char scanner) (digit? next) (add-number char scanner)
:else (add-error scanner (string "Expected -> or negative number after `-`. Got `" char next "`"))) :else (add-error scanner (string "Expected -> or negative number after `-`. Got `" char next "`")))