From 421ef0b01096abb48fdb9b5b2fd619a692d90c90 Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Tue, 24 Jan 2017 23:49:13 +0900
Subject: [PATCH] strip syntactic closures for unquoted vector literals

---
 eval.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/eval.c b/eval.c
index 83be070c..30bc6713 100644
--- a/eval.c
+++ b/eval.c
@@ -1132,8 +1132,10 @@ static sexp analyze (sexp ctx, sexp object, int depth, int defok) {
   } else if (sexp_nullp(x)) {
     res = sexp_compile_error(ctx, "empty application in source", x);
   } else {
-    if (sexp_pointerp(x))      /* accept vectors and other literals directly, */
+    if (sexp_pointerp(x)) {    /* accept vectors and other literals directly, */
       sexp_immutablep(x) = 1;  /* but they must be immutable */
+      x = sexp_strip_synclos(ctx , NULL, 1, x);
+    }
     res = x;
   }