miniMAL: Fix exception in `(nil)

[jackhill/mal.git] / miniMAL / step7_quote.json

diff --git a/miniMAL/step7_quote.json b/miniMAL/step7_quote.json
index 78fd49e..351117f 100644 (file)
--- a/miniMAL/step7_quote.json
+++ b/miniMAL/step7_quote.json
@@ -17,7 +17,8 @@
 ["def", "quasiquote", ["fn", ["ast"],
   ["if", ["not", ["pair?", "ast"]],
     ["list", ["symbol", ["`", "quote"]], "ast"],
-  ["if", ["=", ["`", "unquote"], ["get", ["nth", "ast", 0], ["`", "val"]]],
+  ["if", ["and", ["symbol?", ["nth", "ast", 0]],
+                 ["=", ["`", "unquote"], ["get", ["nth", "ast", 0], ["`", "val"]]]],
     ["nth", "ast", 1],
   ["if", ["and", ["pair?", ["nth", "ast", 0]],
                  ["=", ["`", "splice-unquote"],