one read-syntax/recursive changed to read-syntax, so that add-indents works
svn: r4391
This commit is contained in:
parent
357849bf0a
commit
6123da54c0
|
@ -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?
|
||||
|
|
Loading…
Reference in New Issue
Block a user