diff --git a/mumble b/mumble index 3ad9a27..3c81b80 100755 Binary files a/mumble and b/mumble differ diff --git a/src/mumble.c b/src/mumble.c index 40f0aa8..455a043 100644 --- a/src/mumble.c +++ b/src/mumble.c @@ -459,7 +459,7 @@ lispval* evaluate_lispval(lispval* l) // Check if the first element is an operation. if (l->count >= 2 && ((l->cell[0])->type == LISPVAL_SYM)) { lispval* op = pop_lispval(l, 0); - lispval* result = builtin_simple_math_ops(op->sym, l); + lispval* result = builtin_functions(op->sym, l); delete_lispval(op); return result; } @@ -483,7 +483,7 @@ int main(int argc, char** argv) /* Define them with the following Language */ mpca_lang(MPCA_LANG_DEFAULT, " \ number : /-?[0-9]+\\.?([0-9]+)?/ ; \ - symbol : \"list\" | \"head\" | \"tail\" | \"eval\" \ + symbol : \"list\" | \"head\" | \"tail\" | \"join\" | \"eval\" \ | '+' | '-' | '*' | '/' ; \ sexpr : '(' * ')' ; \ qexpr : '{' * '}' ; \ @@ -530,8 +530,8 @@ int main(int argc, char** argv) print_lispval_parenthesis(result); printf("\n"); } - delete_lispval(l); // delete_lispval(result); + delete_lispval(l); } else { /* Otherwise Print the Error */ mpc_err_print(result.error);