Re: psyntax error reporting bug

[Julian Graham <joolean@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 132 bytes --]

Hi Ludo,

> Andy is the expert, but I think such a patch can’t hurt, so please do!

Done!  See attached.


Regards,
Julian

[-- Attachment #2: 0001-Fix-typo-in-psyntax.scm-related-to-syntax-violation.patch --]
[-- Type: text/x-diff, Size: 1011 bytes --]

From 48128b32d7f9d9613e46b61a3c695d786152fb67 Mon Sep 17 00:00:00 2001
From: Julian Graham <julian.graham@aya.yale.edu>
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