changed the expansion of the ... macro in the teaching languages so that

it cooperates with the test coverage annotations in drracket.
closes PR 11138
This commit is contained in:
Robby Findler 2010-08-30 09:22:37 -05:00
parent cfa1c9bf43
commit b1550d6c9b

View File

@ -1540,6 +1540,11 @@
(define beginner-dots/proc
(make-set!-transformer
(lambda (stx)
;; this ensures that coverage happens; it lifts a constant
;; expression to the top level, but one that has the source location of the dots expression
(syntax-local-lift-expression (datum->syntax #'here 1 stx))
(syntax-case stx (set!)
[(set! form expr) (dots-error stx (syntax form))]
[(form . rest) (dots-error stx (syntax form))]