bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README | LICENSE
commit b81e27d6015f2a83cad83d8813537214476d3bdf
parent 291101390ad8210d0a9ac1dfe89faaa06eb95ed1
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Mon, 24 May 2010 10:01:12 -0600

Fix problem with scribble/lp and dotted forms
 Closes PR 10924
 Merge to v5.0

original commit: 6dec67730837b512d5cb0e258a4c48599ef656a1

Diffstat:

Mcollects/scribble/lp/lang/lang.rkt | 2+-


1 file changed, 1 insertion(+), 1 deletion(-)

diff --git 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