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

fix bug in lw struct generation

Browse Source 
(cherry picked from commit f1a7864c63)
This commit is contained in:
Robby Findler 2012-01-09 17:15:15 -06:00 committed by Ryan Culpepper
parent a1cb9a8c85
commit 9e272a2359
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/redex/private/loc-wrapper-ct.rkt
View File

@ -49,7 +49,7 @@
#`#(#,init-loc-wrapper/q? #`#(#,init-loc-wrapper/q?
#(list #(#,init-loc-wrapper/q? #,op #,(syntax-line stx) #,(syntax-column stx)) #(list #(#,init-loc-wrapper/q? #,op #,(syntax-line stx) #,(syntax-column stx))
#,@(map (λ (x) (process-arg x quote-depth)) (syntax->list (syntax (a b ...)))) #,@(map (λ (x) (process-arg x quote-depth)) (syntax->list (syntax (a b ...))))
#(i,init-loc-wrapper/q? #," . " #f #f) #(#,init-loc-wrapper/q? #," . " #f #f)
#,(process-arg #'c quote-depth) #,(process-arg #'c quote-depth)
#(#,init-loc-wrapper/q? #,cl #f #f)) #(#,init-loc-wrapper/q? #,cl #f #f))
#,(syntax-line stx) #,(syntax-line stx)

5
collects/redex/tests/lw-test.rkt
View File

@ -320,7 +320,10 @@
(normalize-lw (to-lw (a b)))) (normalize-lw (to-lw (a b))))
(test (normalize-lw (to-lw/stx (from-str "(a ((b)) c 1 #t)"))) (test (normalize-lw (to-lw/stx (from-str "(a ((b)) c 1 #t)")))
(normalize-lw (to-lw (a ((b)) c 1 #t))))) (normalize-lw (to-lw (a ((b)) c 1 #t))))
(test (normalize-lw (to-lw/stx (from-str "(a b . c)")))
(normalize-lw (to-lw (a b . c)))))
(print-tests-passed "lw-test.rkt")) (print-tests-passed "lw-test.rkt"))