Slight clean-up and error-catching

src/pebblisp.c

@@ -168,10 +168,6 @@ Object evalBuiltIns(const Object *first, const Object *rest,
     } else if(strcmp(first->name, "if") == 0) {
         return evalIfArgs(rest, env);
     } else if(strcmp(first->name, "fn") == 0) {
-        // printd("EVALBUILTINS first:\n");
-        // debugObj(first);
-        // printd("\nEVALBUILTINS rest:\n");
-        // debugObj(rest);
         return evalLambdaArgs(rest);
     }
 
@@ -193,16 +189,15 @@ Object eval(const Object *obj, struct Environment *env)
     switch(obj->type) {
         case TYPE_NUMBER:
         case TYPE_BOOL:
-            return *obj;
+            return *obj; // Return as is
 
         case TYPE_SYMBOL:
             return fetchFromEnvironment(obj->name, env);
 
         case TYPE_LIST:
         {
-            if(listLength(obj) == 0) {
+            if(listLength(obj) == 0)
-                printf("empty list\n"); return *obj;
+                return *obj;
-            }
 
             if(listLength(obj) == 1)
                 return eval(obj->list, env);
@@ -213,6 +208,7 @@ Object eval(const Object *obj, struct Environment *env)
                 Object built_in = 
                         evalBuiltIns(first_form, first_form->forward, env);
 
+                // deleteList(obj); // Decreases indirectly lost memory, but fails on Pebble
                 if(built_in.type != TYPE_ERROR)
                     return built_in;
             }
@@ -227,10 +223,9 @@ Object eval(const Object *obj, struct Environment *env)
                 for(int i = 1; i < length; i++) {
                     func_eval = first_eval.func(func_eval, rest[i]);
                 }
-                // deleteList(obj);
+                // deleteList(obj); // Decreases indirectly lost memory, but fails on Pebble
                 return func_eval;
 
-
             } else if (first_eval.type == TYPE_LAMBDA) {
                 struct Environment newEnv = 
                         envForLambda(&first_eval.lambda->params, first_form->forward, env);
@@ -269,6 +264,7 @@ void addToEnv(struct Environment *env, const char *name, const Object obj)
             break;
         }
         if(strcmp(env->strings[i], name) == 0) {
+            cleanObject(&env->objects[i]);
             env->objects[i] = obj;
             break;
         }
@@ -277,6 +273,10 @@ void addToEnv(struct Environment *env, const char *name, const Object obj)
 
 void printEnv(struct Environment *env)
 {
+    if(!env) {
+        printd("NULL env\n");
+        return;
+    }
     for(int i = 0; i < MAX_ENV_ELM; i++) {
         if(env->strings[i] == NULL)
             return;