regexp-match/fail-without-reading -> regexp-try-match
svn: r12787
This commit is contained in:
parent
a1222d66ca
commit
83f4d6687d
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user