From 40893703739234bca9f297b7f0787ec7f0125414 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sat, 12 Jan 2013 21:38:52 +0900
Subject: [PATCH] quasiquote should check to quote literal identifiers, not
 just symbols

---
 lib/init-7.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/init-7.scm b/lib/init-7.scm
index bf8a7b19..428565a8 100644
--- a/lib/init-7.scm
+++ b/lib/init-7.scm
@@ -196,7 +196,7 @@
           (else
            (list (rename 'cons) (qq (car x) d) (qq (cdr x) d)))))
         ((vector? x) (list (rename 'list->vector) (qq (vector->list x) d)))
-        ((if (symbol? x) #t (null? x)) (list (rename 'quote) x))
+        ((if (identifier? x) #t (null? x)) (list (rename 'quote) x))
         (else x)))
      (qq (cadr expr) 0))))