fix uninit binding crash

2 files changed, 4 insertions, 0 deletions

diff --git a/src/builtins.h b/src/builtins.h
index 8568a92..b5a0979 100644
--- a/src/builtins.h
+++ b/src/builtins.h
@@ -3,6 +3,8 @@
 
 #include "interp.h"
 
+SExpRef builtin_equal(Interp *interp, SExpRef sexp);
+SExpRef builtin_eq(Interp *interp, SExpRef sexp);
 SExpRef builtin_format(Interp *interp, SExpRef sexp);
 SExpRef builtin_concat(Interp *interp, SExpRef sexp);
 SExpRef builtin_print(Interp *interp, SExpRef sexp);
diff --git a/src/interp.c b/src/interp.c
index df995ca..ba8ba95 100644
--- a/src/interp.c
+++ b/src/interp.c
@@ -776,6 +776,8 @@ SExpRef new_binding(Interp *interp, SExpRef sym, SExpRef val) {
     REF(ret)->type = kBindingSExp;
     REF(ret)->binding.name = sym;
     REF(ret)->binding.value = val;
+    REF(ret)->binding.func = unbound;
+    REF(ret)->binding.next = NIL;
     return ret;
 }