rusefi
/
bldc
mirror of https://github.com/rusefi/bldc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Merge commit '881875dfe1ba1c54d7c50167e5ea514e4c5946ba'

This commit is contained in:
Benjamin Vedder 2022-03-26 16:43:20 +01:00
parent 55405056e2 881875dfe1
commit 05f0e983d9
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lispBM/lispBM/src/eval_cps.c
View File

@ -1456,9 +1456,10 @@ static inline void cont_resume(eval_context_t *ctx) {
static inline void cont_expand_macro(eval_context_t *ctx) {
lbm_value env;
lbm_value args;
lbm_pop_u32_2(&ctx->K, &args, &env);
lbm_uint* sptr = lbm_get_stack_ptr(&ctx->K, 2);
//lbm_pop_u32_2(&ctx->K, &args, &env);
lbm_value env = (lbm_value)sptr[0];
lbm_value args = (lbm_value)sptr[1];
if (lbm_is_macro(ctx->r)) {
@ -1479,6 +1480,7 @@ static inline void cont_expand_macro(eval_context_t *ctx) {
curr_param = lbm_cdr(curr_param);
curr_arg = lbm_cdr(curr_arg);
}
lbm_stack_drop(&ctx->K, 2);
ctx->curr_exp = lbm_car(lbm_cdr(lbm_cdr(m)));
ctx->curr_env = expand_env;
ctx->app_cont = false;