regexp-match/fail-without-reading -> regexp-try-match

svn: r12787
This commit is contained in:
Eli Barzilay 2008-12-12 13:08:22 +00:00
parent a1222d66ca
commit 83f4d6687d

View File

@ -65,8 +65,8 @@
(define (internal-error label)
(error 'scribble-reader "internal error [~a]" label))
;; like `regexp-match/fail-without-reading', without extras; the regexp that
;; is used must be anchored -- nothing is dropped
;; like `regexp-try-match', without extras; the regexp that is used
;; must be anchored -- nothing is dropped
(define (*regexp-match-peek-positions pattern input-port)
#; ; sanity checks, not needed unless this file is edited
(unless (and (byte-regexp? pattern)