Fix problem with scribble/lp and dotted forms

Closes PR 10924 Merge to v5.0
2010-05-24 10:01:12 -06:00 · 2010-05-24 10:01:12 -06:00 · 6dec677308
commit 6dec677308
parent 0b8a664d78
1 changed files with 1 additions and 1 deletions
--- a/collects/scribble/lp/lang/lang.rkt
+++ b/collects/scribble/lp/lang/lang.rkt
@ -41,7 +41,7 @@
      (raise-syntax-error 'scribble/lp "no chunks")))
  (define orig-stx (syntax-case stx () [(_ orig) #'orig]))
  (define (restore nstx d) (datum->syntax orig-stx d nstx nstx))
-  (define (shift nstx) (datum->syntax orig-stx (syntax-e nstx) nstx nstx))
+  (define (shift nstx) (replace-context orig-stx nstx))
  (define body
    (let ([main-id (or main-id first-id)])
      (restore