From 84e0f4ab6d3459cb752b43024e054c6717b23a0d Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@gmail.com>
Date: Wed, 21 Oct 2009 08:55:42 +0300
Subject: [PATCH] fixed bug in quasiquote when the symbols quasiquote, unquote,
 unquote-splicing are introduced.

---
 scheme/last-revision       | 2 +-
 scheme/psyntax.expander.ss | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/last-revision b/scheme/last-revision
index 1c95f53..eb804fd 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1863
+1864
diff --git a/scheme/psyntax.expander.ss b/scheme/psyntax.expander.ss
index 7039a45..bac7eb7 100644
--- a/scheme/psyntax.expander.ss
+++ b/scheme/psyntax.expander.ss
@@ -1649,7 +1649,7 @@
   (define quasiquote-macro
     (let ()
       (define (datum x)
-        (list (scheme-stx 'quote) (mkstx x '() '() '())))
+        (list (scheme-stx 'quote) (mkstx x top-mark* '() '())))
       (define-syntax app
         (syntax-rules (quote)
           ((_ 'x arg* ...)