suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Fix problem with scribble/lp and dotted forms

Browse Source 
Closes PR 10924
 Merge to v5.0

original commit: 6dec67730837b512d5cb0e258a4c48599ef656a1
This commit is contained in:
Matthew Flatt 2010-05-24 10:01:12 -06:00
parent 291101390a
commit b81e27d601
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scribble/lp/lang/lang.rkt
View File

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