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?)))