mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 07:50:20 +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 (throw 'syntax-error
who who
message message
(or (source-annotation subform) (source-annotation form)) (sourcev->alist
(or (source-annotation subform) (source-annotation form)))
(strip form) (strip form)
(strip subform)))) (strip subform))))
(letrec* (letrec*

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

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