:rarrow -> :arrow

This commit is contained in:
Scott Richmond 2024-05-08 13:59:46 -04:00
parent c36a140c6b
commit cdb71a8122

View File

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