Re: macro like "my" in Perl

[Paul Jarc]

Neil Jerram <address@hidden> wrote:
>                    (error (format #f "Bad element ~S at ~A:~A:~A"
>                                      (car elts)
>                                      (source-property (car elts) 'filename)
>                                      (source-property (car elts) 'line)
>                                      (source-property (car elts) 'column)))

Great, this works.  Although in my guile (1.5.6), this seems to be
disabled by default, so I had to add (read-enable 'positions).

> guile> (list-no-pairs 1 (2 2) 3)
> standard input:25:20: In procedure error in expression (error (format #f "Bad 
> element ~S at ~A:~A:~A" ...)):
> standard input:25:20: Bad element (2 2) at standard input:36:17
> ABORT: (misc-error)

My error messages look like:
ERROR: Bad element (2 2) at ./script:21:11

How do you get the filename and positions at the beginning of the
line?


paul