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 typo in psyntax.scm related to syntax-violation reporting.

Browse source 
* module/ice-9/psyntax.scm (chi-macro): Replace `s' with `(wrap-subst w)'.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Julian Graham 2009-10-18 17:56:13 -04:00 • committed by Ludovic Courtès
parent 620c89651a
commit 416c9fb363
2 changed files with 5362 additions and 5340 deletions
Download patch file Download diff file Expand all files Collapse all files

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

File diff suppressed because it is too large Load diff

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

@ -1323,7 +1323,7 @@
(rebuild-macro-output (vector-ref x i) m)))))
((symbol? x)
(syntax-violation #f "encountered raw symbol in macro output"
(source-wrap e w s mod) x))
(source-wrap e w (wrap-subst w) mod) x))
(else x))))
(rebuild-macro-output (p (wrap e (anti-mark w) mod)) (new-mark))))