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

Reindent

Browse Source
This commit is contained in:
Scott Richmond 2023-05-18 16:44:14 -04:00
parent a7ab313a5f
commit 23e29fdca2
1 changed files with 25 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ludus/scanner.clj
View File

@ -332,7 +332,7 @@
(assoc scanner :start (:current scanner))) (assoc scanner :start (:current scanner)))
(defn scan [source] (defn scan [source]
(loop [scanner (new-scanner (str source "\n"))] (loop [scanner (new-scanner source)]
(if (at-end? scanner) (if (at-end? scanner)
(let [scanner (add-token scanner :eof)] (let [scanner (add-token scanner :eof)]
{:tokens (:tokens scanner) {:tokens (:tokens scanner)