From 4c8b8cc13ee6bbbd130b46f2a6b0ebd9fd8c4304 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 4 Jun 2015 21:19:09 -0400
Subject: [PATCH] Do not constant-fold computations that include a vector

---
 trans.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/trans.scm b/trans.scm
index 00d9d18e..a5996fd1 100644
--- a/trans.scm
+++ b/trans.scm
@@ -582,7 +582,8 @@
       (lambda (return)
         (for-each
           (lambda (expr)
-            (if (not (const? expr))
+            (if (or (vector? expr)
+                    (not (const? expr)))
               (return #f)))
           (cdr ast))
         #t))))