twc/ludus
4
0
Fork 0
Code Issues 32 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

4
src/ludus/scanner.clj
View File

@ -46,7 +46,7 @@
"true" true "true" true
"false" false "false" false
"nil" nil "nil" nil
}) })
(defn- new-scanner (defn- new-scanner
"Creates a new scanner." "Creates a new scanner."
@ -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)