Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

removing leftover noops from debugging

Browse source
This commit is contained in:
Alex Shinn 2016-12-18 16:06:56 +09:00
parent 3e796be258
commit 1d9038d3ca
1 changed files with 1 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lib/chibi/regexp.scm
View file

@ -422,20 +422,7 @@
=> (lambda (sr-prev) (searcher-merge! sr-prev sr))) => (lambda (sr-prev) (searcher-merge! sr-prev sr)))
(else (else
;; Add new searcher. ;; Add new searcher.
(posse-add! new sr))) (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)))))
;; Run so long as there is more to match. ;; Run so long as there is more to match.