[plt-scheme] Getting the expansion location

Hi all,

The location tracking in SchemeUnit is currently
broken.  I'm trying to fix it.  I've modified the
define-assertion macro so it basically expands to:

(define-syntax name
  (lambda (stx)
    (syntax-case stx ()
      ((name param ...)
       (syntax/loc stx 
         (if (begin expr ...)
             #t
             (fail-assertion reported-name
                             (quote-syntax stx)
                             ""
                            
(current-continuation-marks)
                             param ...))))))) 

I get a syntax object but the location is always the
file (assert.ss) where I define this macro, not the
location where this macro is expanded.  How can I get
the expansion location?

Ta,
Noel

=====
Email: noelwelsh <at> yahoo <dot> com
Jabber: noelw <at> jabber <dot> org

__________________________________
Do you Yahoo!?
The New Yahoo! Search - Faster. Easier. Bingo.
http://search.yahoo.com