From 248e424993cadf4f9b04d0585d310c606d9dc549 Mon Sep 17 00:00:00 2001 From: Scott Richmond Date: Thu, 9 May 2024 18:29:51 -0400 Subject: [PATCH] moar bugfixes --- janet/scanner.janet | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/janet/scanner.janet b/janet/scanner.janet index caea361..43c5de6 100644 --- a/janet/scanner.janet +++ b/janet/scanner.janet @@ -186,21 +186,17 @@ (defn- add-string [scanner] - (print "Adding string") (defn recur [scanner buff interpolate?] (let [char (current-char scanner)] - (print "scanning current char: " char) (case char "{" (recur (advance scanner) (buffer/push buff char) true) # allow multiline strings "\n" (recur (update (advance scanner) :line inc) (buffer/push buff char) interpolate?) "\"" (add-token (advance scanner) (if interpolate? :interpolated :string)(string buff)) "\\" (let [next (next-char scanner)] - (print "found slash") - (print "next char: " next) (if (= next "{") (do - (print "escaped brace") + (buffer/push buff char) (buffer/push buff next) (recur (advance (advance scanner)) buff interpolate?)) (recur (advance scanner) (buffer/push buff char) interpolate?)))