fixed bug in quasiquote when the symbols quasiquote, unquote,

unquote-splicing are introduced.
2009-10-21 08:55:42 +03:00 · 2009-10-21 08:55:42 +03:00 · 84e0f4ab6d
parent d03fbfe4ef
commit 84e0f4ab6d
2 changed files with 2 additions and 2 deletions
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1863
+1864
--- 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* ...)