From aa822470ce97f3338a59572366faf8fa40e04126 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Sat, 15 Oct 2016 18:34:46 -0400 Subject: [PATCH] Performance improvements --- scheme/read.sld | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/scheme/read.sld b/scheme/read.sld index c6281cb3..3b266a89 100644 --- a/scheme/read.sld +++ b/scheme/read.sld @@ -152,12 +152,11 @@ (in-port:set-cnum! ptbl 0) (parse fp '() toks all? #f parens ptbl)) (parse fp '() toks all? #t parens ptbl))) + ((eq? c #\newline) + (in-port:set-lnum! ptbl (+ 1 (in-port:get-lnum ptbl))) + (in-port:set-cnum! ptbl 0) + (parse/tok fp tok toks all? #f parens ptbl c)) ((char-whitespace? c) - (if (equal? c #\newline) - (in-port:set-lnum! ptbl - (+ 1 (in-port:get-lnum ptbl)))) - (if (equal? c #\newline) - (in-port:set-cnum! ptbl 0)) (parse/tok fp tok toks all? #f parens ptbl c)) ((eq? c #\;) (parse/tok fp tok toks all? #t parens ptbl c))