From af7148ce02f22ecf4b5a2d36f3a1103ded750e89 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Thu, 26 Mar 2009 17:24:28 +0900
Subject: [PATCH] fixing quote

---
 eval.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/eval.c b/eval.c
index 295e34e6..5e920301 100644
--- a/eval.c
+++ b/eval.c
@@ -285,7 +285,7 @@ sexp analyze (sexp x, sexp env) {
           res = analyze_seq(x, env);
           break;
         case CORE_QUOTE:
-          res = sexp_make_lit(x);
+          res = sexp_make_lit(sexp_cadr(x));
           break;
         default:
           res = sexp_compile_error("unknown core form", sexp_list1(op));