suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove sanity checks that should always be fine

Browse Source 
svn: r6818
This commit is contained in:
Eli Barzilay 2007-07-04 04:43:14 +00:00
parent 9824ec94c2
commit 37b7284a4f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scribble/reader.ss
View File

@ -73,6 +73,7 @@
;; like `regexp-match/fail-without-reading', without extras; the regexp that ;; like `regexp-match/fail-without-reading', without extras; the regexp that
;; is used must be anchored -- nothing is dropped ;; is used must be anchored -- nothing is dropped
(define (*regexp-match-peek-positions pattern input-port) (define (*regexp-match-peek-positions pattern input-port)
#; ; sanity checks, not needed unless this file is edited
(unless (and (byte-regexp? pattern) (unless (and (byte-regexp? pattern)
(regexp-match? #rx#"^\\^" (object-name pattern))) (regexp-match? #rx#"^\\^" (object-name pattern)))
(error 'reader "internal error [invalid bregexp] ~e" 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 ;; not empty, then it is treated specially. called with at least two items
;; (see below). ;; (see below).
(define (add-indents stxs 1st-eol?) (define (add-indents stxs 1st-eol?)
#; ; the reader always turns on line counting
(unless (andmap (lambda (x) (unless (andmap (lambda (x)
(and (or (syntax? x) (placeholder? x)) (and (or (syntax? x) (placeholder? x))
(syntax/placeholder-column x) (syntax/placeholder-column x)
(syntax/placeholder-line x))) (syntax/placeholder-line x)))
stxs) stxs)
;; the reader always turns on line counting
(read-error "internal error [add-indents] ~s" stxs)) (read-error "internal error [add-indents] ~s" stxs))
(let* ([mincol (let* ([mincol
(let loop ([min #f] [stxs (if 1st-eol? stxs (cdr stxs))]) (let loop ([min #f] [stxs (if 1st-eol? stxs (cdr stxs))])