From 09696c212a2984c5701098134f8b8eeeacd9f057 Mon Sep 17 00:00:00 2001 From: Scott Richmond Date: Tue, 31 May 2022 14:12:52 -0400 Subject: [PATCH] Fix bug when last line is comment --- src/ludus/scanner.clj | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/src/ludus/scanner.clj b/src/ludus/scanner.clj index c749f4c..fa91d17 100644 --- a/src/ludus/scanner.clj +++ b/src/ludus/scanner.clj @@ -218,9 +218,6 @@ (let [char (current-char scanner)] (if (= \newline char) (update scanner ::line inc) - ;;(if (s/starts-with? comm "&&&") - ;;(add-token (update scanner ::line inc) ::token/docstring) - ;;(add-token (update scanner ::line inc) ::token/comment)) (recur (advance scanner) (str comm char)))))) (defn- scan-token [scanner] @@ -319,7 +316,7 @@ (assoc scanner ::start (::current scanner))) (defn scan [source] - (loop [scanner (new-scanner source)] + (loop [scanner (new-scanner (str source "\n"))] (if (at-end? scanner) (let [scanner (add-token scanner ::token/eof)] {:tokens (::tokens scanner)