From 48128b32d7f9d9613e46b61a3c695d786152fb67 Mon Sep 17 00:00:00 2001 From: Julian Graham Date: Sun, 18 Oct 2009 17:56:13 -0400 Subject: [PATCH] Fix typo in psyntax.scm related to syntax-violation reporting. * module/ice-9/psyntax.scm (chi-macro): Replace `s' with `(wrap-subst w)'. --- module/ice-9/psyntax.scm | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index cb90fcc..1b5addd 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -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)))) -- 1.6.0.4