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

fix lexical call naming bug

Browse source 
* module/ice-9/psyntax.scm: Fix bug in which the whole syntax object was
  being recorded as the name of the operator in a lexical call, instead
  of just the symbolic name.
* module/ice-9/psyntax-pp.scm: Regenerated.
This commit is contained in:
Andy Wingo 2010-06-11 16:28:55 +02:00
parent 2bcf97a643
commit d71cc612c3
2 changed files with 4148 additions and 4141 deletions
Download patch file Download diff file Expand all files Collapse all files

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

File diff suppressed because it is too large Load diff

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

@ -1241,8 +1241,12 @@
(chi e r w mod))))
((lexical-call)
(chi-application
(build-lexical-reference 'fun (source-annotation (car e))
(car e) value)
(let ((id (car e)))
(build-lexical-reference 'fun (source-annotation id)
(if (syntax-object? id)
(syntax->datum id)
id)
value))
e r w s mod))
((global-call)
(chi-application