some safety checks

2019-05-03 15:01:29 +02:00
parent c8807a04b2
commit 0923f36f9c
2 changed files with 7 additions and 4 deletions
@@ -275,11 +275,14 @@ namespace Parser {
                try ret = Memory::create_lisp_object_pair(
                    Memory::get_or_create_lisp_object_symbol("quasiquote"),
                    Memory::create_lisp_object_pair(result, Memory::nil));
-            else if (quoteType == ',')
+            else if (quoteType == ',') {
                try ret = Memory::create_lisp_object_pair(
                    Memory::get_or_create_lisp_object_symbol("unquote"),
                    Memory::create_lisp_object_pair(result, Memory::nil));
-            inject_scl(ret);
+            }
+            if (ret) {
+                inject_scl(ret);
+            }
            return ret;
        }