mumble

commit d1420805d76d6374e32d82b86911f048a50d516b
parent 49fdc0d69e922eb13fe9f91b6ed161c4ca337a2b
Author: NunoSempere <nuno.sempere@protonmail.com>
Date:   Mon,  1 May 2023 23:14:40 -0400

step: savepoint while adding more functions.

Diffstat:
M
mumble
 | 
0

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

2 files changed, 2 insertions(+), 2 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_functions(op->sym, l);
+        lispval* result = builtin_simple_math_ops(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\" | \"eval\"       \
 		       | '+' | '-' | '*' | '/' ;                         \
 		sexpr : '(' <expr>* ')' ;                                \
 		qexpr : '{' <expr>* '}' ;                                \