[plt-scheme] Current line number

From: Paulo J. Matos (pocmatos at gmail.com)
Date: Mon Jan 18 16:08:10 EST 2010

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


Posted on the users mailing list.