From 37b7284a4fd57760bfaec1c98567b501fe685f51 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Wed, 4 Jul 2007 04:43:14 +0000 Subject: [PATCH] remove sanity checks that should always be fine svn: r6818 --- collects/scribble/reader.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/scribble/reader.ss b/collects/scribble/reader.ss index 8c3e48d776..40723867c2 100644 --- a/collects/scribble/reader.ss +++ b/collects/scribble/reader.ss @@ -73,6 +73,7 @@ ;; like `regexp-match/fail-without-reading', 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) (regexp-match? #rx#"^\\^" (object-name pattern))) (error 'reader "internal error [invalid bregexp] ~e" pattern)) @@ -250,12 +251,12 @@ ;; not empty, then it is treated specially. called with at least two items ;; (see below). (define (add-indents stxs 1st-eol?) + #; ; the reader always turns on line counting (unless (andmap (lambda (x) (and (or (syntax? x) (placeholder? x)) (syntax/placeholder-column x) (syntax/placeholder-line x))) stxs) - ;; the reader always turns on line counting (read-error "internal error [add-indents] ~s" stxs)) (let* ([mincol (let loop ([min #f] [stxs (if 1st-eol? stxs (cdr stxs))])