mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Fix syntax-violation, which was passing vectors instead of alists

Browse source 
* module/ice-9/psyntax.scm (syntax-violation): Pass source as an alist.
A sourcev would be better but it's incompatible.
* module/ice-9/psyntax-pp.scm: Regenerate.
This commit is contained in:
Andy Wingo 2021-04-29 21:53:12 +02:00
parent c72a0237e3
commit ee7d18ec41
2 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/ice-9/psyntax-pp.scm
View file

@ -2530,7 +2530,8 @@
(throw 'syntax-error
who
message
(or (source-annotation subform) (source-annotation form))
(sourcev->alist
(or (source-annotation subform) (source-annotation form)))
(strip form)
(strip subform))))
(letrec*

5
module/ice-9/psyntax.scm
View file

@ -2792,8 +2792,9 @@
who 'syntax-violation)
(arg-check string? message 'syntax-violation)
(throw 'syntax-error who message
(or (source-annotation subform)
(source-annotation form))
(sourcev->alist
(or (source-annotation subform)
(source-annotation form)))
(strip form)
(strip subform))))