| commit | 36f2c69d991fb92330b59536aa00c14e25d296d0 | [log] [tgz] |
|---|---|---|
| author | swissChili <swisschili@fastmail.com> | Sun Aug 08 14:31:44 2021 -0700 |
| committer | swissChili <swisschili@fastmail.com> | Sun Aug 08 14:31:44 2021 -0700 |
| tree | 680e01414a18fa4e7417b2eb71bc95d41eaba3f9 | |
| parent | 4691cf6c7820af91ef4d6d697e4214ce4b33df8e [diff] [blame] |
Fix bug in error handling where __sub would be clobbered.
diff --git a/src/lisp/main.c b/src/lisp/main.c index 07e6d4a..f78b3b1 100644 --- a/src/lisp/main.c +++ b/src/lisp/main.c
@@ -20,10 +20,11 @@ goto done; } - value_t (*lisp_main)() = find_function(env, "main")->def0; + struct function *lisp_main_f = find_function(env, "main"); - if (lisp_main) + if (lisp_main_f) { + value_t (*lisp_main)() = lisp_main_f->def0; gc_set_base_here(); lisp_main(); }