add syntax locations to cond* macro

svn: r14868
2009-05-19 15:23:57 +00:00 · 2009-05-19 15:23:57 +00:00 · f712495009
commit f712495009
parent 676f827ab0
1 changed files with 5 additions and 4 deletions
--- a/collects/tests/typed-scheme/succeed/little-schemer.ss
+++ b/collects/tests/typed-scheme/succeed/little-schemer.ss
@ -17,10 +17,11 @@
 (define-syntax (cond* stx)
  (syntax-case stx (else)
    [(_ [pred expr id rhs] . rest)
-     #'(let ([id expr])
-         (if (pred id) 
-             rhs
-             (cond . rest)))]
+     (quasisyntax/loc stx
+         (let ([id expr])
+           (if (pred id) 
+               rhs
+               #,(syntax/loc #'rest (cond . rest)))))]
    [(_ [else . rest]) #'(begin . rest)]
    [(_ [p . rhs] . rest)
     #'(if p (begin . rhs)