From 9e272a2359bbd1b6f57df9670cd7186b12837a3b Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 9 Jan 2012 17:15:15 -0600 Subject: [PATCH] fix bug in lw struct generation (cherry picked from commit f1a7864c63bc2f38b99e4fd3804e4da0629301cf) --- collects/redex/private/loc-wrapper-ct.rkt | 2 +- collects/redex/tests/lw-test.rkt | 5 ++++- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/collects/redex/private/loc-wrapper-ct.rkt b/collects/redex/private/loc-wrapper-ct.rkt index e17058638a..56de781cb1 100644 --- a/collects/redex/private/loc-wrapper-ct.rkt +++ b/collects/redex/private/loc-wrapper-ct.rkt @@ -49,7 +49,7 @@ #`#(#,init-loc-wrapper/q? #(list #(#,init-loc-wrapper/q? #,op #,(syntax-line stx) #,(syntax-column stx)) #,@(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) #(#,init-loc-wrapper/q? #,cl #f #f)) #,(syntax-line stx) diff --git a/collects/redex/tests/lw-test.rkt b/collects/redex/tests/lw-test.rkt index 31cfe3cd29..bb34a3f82b 100644 --- a/collects/redex/tests/lw-test.rkt +++ b/collects/redex/tests/lw-test.rkt @@ -320,7 +320,10 @@ (normalize-lw (to-lw (a b)))) (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"))