[plt-scheme] Current line number

On Mon, Jan 18, 2010 at 9:03 PM, Jay McCarthy <jay.mccarthy at gmail.com> wrote:
> You could do something like this:
>
> #lang scheme
> (define-syntax (current-line-number stx)
>  (quasisyntax/loc stx
>    '#,(syntax-line stx)))
>
> (printf "~a: ~a~n" (current-line-number) 6)
>
> (printf "~a: ~a~n" (current-line-number) 8)
>

Thanks Jay for your reply!

-- 
Paulo Jorge Matos - pocmatos at gmail.com
http://www.pmatos.net