improve source correlation on `require' expansion

This commit is contained in:
Matthew Flatt 2012-09-29 08:58:42 -06:00
parent 4809c11548
commit 14e276094a
2 changed files with 19 additions and 1 deletions

View File

@ -299,7 +299,7 @@
stx))
(cdr names))))
namess))
(list (make-import-source (datum->syntax #'simple mod-path) 0)))))]
(list (make-import-source (datum->syntax #'simple mod-path #'simple #'simple) 0)))))]
[(id . rest)
(identifier? #'id)
(let ([t (syntax-local-value #'id (lambda () #f))])

View File

@ -786,6 +786,24 @@
(err/rt-test (syntax-local-lift-require 'abc #'def))
;; ----------------------------------------
(let ()
(define stx
(expand #'(module m racket
(require (only-in racket/list first)))))
(define r/ls
(syntax-case stx ()
[(_mod _m _racket
(_mod-begin (_req (_just-meta _0 (_rename rl1 . _whatever))
(_only rl2))))
(list #'rl1 #'rl2)]))
(test (list #f #t) map syntax-original? r/ls)
(test (list #f #t) map number? (map syntax-position r/ls)))
;; ----------------------------------------
(report-errs)