1. lval* builtin_load(lenv* e, lval* a) {
    2.   LASSERT_NUM("load", a, 1);
    3.   LASSERT_TYPE("load", a, 0, LVAL_STR);
    5.   /* Parse File given by string name */
    6.   mpc_result_t r;
    7.   if (mpc_parse_contents(a->cell[0]->str, Lispy, &r)) {
    9.     /* Read contents */
    11.     mpc_ast_delete(r.output);
    13.     /* Evaluate each Expression */
    14.       lval* x = lval_eval(e, lval_pop(expr, 0));
    15.       /* If Evaluation leads to error print it */
    16.       if (x->type == LVAL_ERR) { lval_println(x); }
    17.       lval_del(x);
    18.     }
    20.     /* Delete expressions and arguments */
    21.     lval_del(expr);
    22.     lval_del(a);
    24.     /* Return empty list */
    27.     /* Get Parse Error as String */
    28.     char* err_msg = mpc_err_string(r.error);
    29.     mpc_err_delete(r.error);
    31.     /* Create new error message using it */
    32.     lval* err = lval_err("Could not load Library %s", err_msg);
    33.     free(err_msg);
    34.     lval_del(a);
    36.     /* Cleanup and return error */
    37.     return err;
    38.   }
    39. }