From 1d9038d3ca32e0e8251dc5aa84cb2f4e461b83fc Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 18 Dec 2016 16:06:56 +0900 Subject: [PATCH] removing leftover noops from debugging --- lib/chibi/regexp.scm | 15 +-------------- 1 file changed, 1 insertion(+), 14 deletions(-) diff --git a/lib/chibi/regexp.scm b/lib/chibi/regexp.scm index 2e2155fc..d8c9b3be 100644 --- a/lib/chibi/regexp.scm +++ b/lib/chibi/regexp.scm @@ -422,20 +422,7 @@ => (lambda (sr-prev) (searcher-merge! sr-prev sr))) (else ;; Add new searcher. - (posse-add! new sr))) - (let ((ls (hash-table-values new))) - (for-each - (lambda (sr1) - (for-each - (lambda (sr2) - (cond - ((and (not (eq? sr1 sr2)) - (eq? (searcher-matches sr1) (searcher-matches sr2)))) - ((and (not (eq? sr1 sr2)) - (eq? (regexp-match-matches (searcher-matches sr1)) - (regexp-match-matches (searcher-matches sr2))))))) - ls)) - ls))))) + (posse-add! new sr)))))) ;; Run so long as there is more to match.