source-location->source-properties

[Ludovic Courtès]

Hi!

"Andy Wingo" <address@hidden> writes:

> --- a/module/system/base/lalr.scm
> +++ b/module/system/base/lalr.scm
> @@ -35,6 +35,7 @@
>              source-location-column
>              source-location-offset
>              source-location-length
> +            source-location->source-properties
>
>              ;; `lalr-parser' is a defmacro, which produces code that refers 
> to
>              ;; these drivers.
> @@ -43,3 +44,8 @@
>  ;; The LALR parser generator was written by Dominique Boucher.  It's 
> available
>  ;; from http://code.google.com/p/lalr-scm/ and released under the LGPLv3+.
>  (include-from-path "system/base/lalr.upstream.scm")
> +
> +(define (source-location->source-properties loc)
> +  `((filename . ,(source-location-input loc))
> +    (line . ,(source-location-line loc))
> +    (column . ,(source-location-column loc))))

I was thinking that this procedure could be made internal to the ES
compiler, so that the export list of (system base lalr) remains
identical to that upstream.

What do you think?

Thanks,
Ludo’.