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

Merge commit 'c13616c3671f3cb11616dac6f581316774eda78f'

This commit is contained in:
Benjamin Vedder 2023-12-23 12:20:36 +01:00
parent adbbc0548f c13616c367
commit 8cb742000b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2369,7 +2369,7 @@ static void apply_map(lbm_value *args, lbm_uint nargs, eval_context_t *ctx) {
lbm_set_car_and_cdr(get_cdr(appli), appli_1, ENC_SYM_NIL);
lbm_set_car(appli, f);
lbm_value elt = cons_with_gc(ctx->r, ENC_SYM_NIL, ENC_SYM_NIL);
lbm_value elt = cons_with_gc(ctx->r, ENC_SYM_NIL, appli);
stack_push_4(&ctx->K, elt, appli, appli_0, MAP);
sptr[0] = t; // reuse stack space
sptr[1] = ctx->curr_env;