personal/mumble
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

step: some changes to be reverted.

Browse Source
This commit is contained in:
NunoSempere 2023-05-01 23:27:24 -04:00
parent 976935fe09
commit bb555f6fe0
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
mumble
View File

Binary file not shown.

6
src/mumble.c
View File

@ -459,7 +459,7 @@ lispval* evaluate_lispval(lispval* l)
// Check if the first element is an operation. // Check if the first element is an operation.
if (l->count >= 2 && ((l->cell[0])->type == LISPVAL_SYM)) { if (l->count >= 2 && ((l->cell[0])->type == LISPVAL_SYM)) {
lispval* op = pop_lispval(l, 0); 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); delete_lispval(op);
return result; return result;
} }
@ -483,7 +483,7 @@ int main(int argc, char** argv)
/* Define them with the following Language */ /* Define them with the following Language */
mpca_lang(MPCA_LANG_DEFAULT, " \ mpca_lang(MPCA_LANG_DEFAULT, " \
number : /-?[0-9]+\\.?([0-9]+)?/ ; \ number : /-?[0-9]+\\.?([0-9]+)?/ ; \
symbol : \"list\" | \"head\" | \"tail\" | \"eval\" \ symbol : \"list\" | \"head\" | \"tail\" | \"join\" | \"eval\" \
| '+' | '-' | '*' | '/' ; \ | '+' | '-' | '*' | '/' ; \
sexpr : '(' <expr>* ')' ; \ sexpr : '(' <expr>* ')' ; \
qexpr : '{' <expr>* '}' ; \ qexpr : '{' <expr>* '}' ; \
@ -530,8 +530,8 @@ int main(int argc, char** argv)
print_lispval_parenthesis(result); print_lispval_parenthesis(result);
printf("\n"); printf("\n");
} }
delete_lispval(l);
// delete_lispval(result); // delete_lispval(result);
delete_lispval(l);
} else { } else {
/* Otherwise Print the Error */ /* Otherwise Print the Error */
mpc_err_print(result.error); mpc_err_print(result.error);