svn: r9130

This commit is contained in:
Eli Barzilay 2008-04-02 00:08:02 +00:00
parent fcfaa3cc64
commit 08455ce632

View File

@ -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)