one read-syntax/recursive changed to read-syntax, so that add-indents works

svn: r4391
This commit is contained in:
Matthew Flatt 2006-09-20 01:49:12 +00:00
parent 357849bf0a
commit 6123da54c0

View File

@ -108,7 +108,7 @@
(set-box! level (add1 (unbox level)))
(make-stx (car m)))]
[(regexp-match-peek-positions sub-start inp)
(read-syntax/recursive source-name inp)] ; include comment objs
(read-syntax source-name inp)] ; include comment objs
[(regexp-match/fail-without-reading end-of-line inp)
=> (lambda (m)
(if (cadr m) ; backslashes?