1 files changed, 8 insertions, 1 deletions

@@ -82,9 +82,16 @@ m.specials = {
                         end
                         return type.list(QQ, fin)
                 end,
+        -- if not inside quasiquote, unquote and unquote-splicing are errors
+        unquote = function () error("Unexpected unquote") end,
+        ["unquote-splicing"] =
+                function () error("Unexpected unquote-splicing") end,
+        -- define variables
         define = function (r, e) rawset(e, r[1], m.eval(r[2][1], e)) end,
-        lambda = function (r, e) return m.procedure(r[1], r[2], e) end,
         ["set!"] = function (r, e) e[r[1]] = m.eval(r[2][1], e) end,
+        -- y'know, ... lambda
+        lambda = function (r, e) return m.procedure(r[1], r[2], e) end,
+        -- control flow
         ["if"] =
                 function (r, e)
                         local test, conseq, alt =