mumble

commit bb555f6fe0458b7b57ffb7e597b7dda7c233328d
parent 976935fe095c27d6d68b5c45d67200dee2bddea0
Author: NunoSempere <nuno.sempere@protonmail.com>
Date:   Mon,  1 May 2023 23:27:24 -0400

step: some changes to be reverted.

Diffstat:
M
mumble
 | 
0

M
src/mumble.c
 | 
6
+++---

2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/mumble b/mumble
Binary files differ.
diff --git 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 : '(' <expr>* ')' ;                                \
 		qexpr : '{' <expr>* '}' ;                                \
@@ -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);