Re: Guile top-level functions

[Neil Jerram]

Kevin Ryde wrote:
> Actually I was thinking of something like
>
>         (define callback noop)
>         ...
>         (set! callback (lambda () (display 'hello)))
>         ...
>         (callback)
>
> when the callback is made you'd like to know where that anonymous
> procedure came from.

Well:

guile> (source-properties (caddr (procedure-source callback)))
((breakpoint . #f) (line . 1) (column . 26) (filename . "standard input"))

But this assumes that the first form in the body is a pair (or more 
generally, if tweaked, that the body contains _some_ pair), and I agree 
that if would be nicer for the result of (procedure-source ...) to have 
the source properties directly.

        Neil