svn: r9130
This commit is contained in:
parent
fcfaa3cc64
commit
08455ce632
|
@ -426,8 +426,8 @@
|
||||||
=> cadr]
|
=> cadr]
|
||||||
[else (internal-error 'get-rprefixes)])])
|
[else (internal-error 'get-rprefixes)])])
|
||||||
(loop (cons (datum->syntax #f sym
|
(loop (cons (datum->syntax #f sym
|
||||||
(vector source-name line col pos
|
(vector source-name line col
|
||||||
(span-from pos))
|
pos (span-from pos))
|
||||||
orig-stx)
|
orig-stx)
|
||||||
r))))]
|
r))))]
|
||||||
[(*skip re:whitespaces)
|
[(*skip re:whitespaces)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user