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

Merge commit '829ebc6713701d5f410ddaadc40f4b9d627a8b80'

This commit is contained in:
Benjamin Vedder 2022-04-14 22:15:46 +02:00
parent cf80a1e1d7 829ebc6713
commit 8915fd8993
4 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1482,6 +1482,7 @@ static inline void cont_progn_rest(eval_context_t *ctx) {
env = sptr[0];
if (lbm_is_symbol_nil(rest)) {
lbm_stack_drop(&ctx->K, 2);
ctx->app_cont = true;
return;
}

20
lispBM/lispBM/tests/test_array_syntax_2.lisp Normal file
View File

@ -0,0 +1,20 @@
(define arr
[ 1 2 3 4 5 6 7 8 9
1 2 3 4 5 6 7 8 9
1 2 3 4 5 6 7 8 9
1 2 3 4 5 6 7 8 9
1 2 3 4 5 6 7 8 9
1 2 3 4 5 6 7 8 9
1 2 3 4 5 6 7 8 9
1 2 3 4 5 6 7 8 9
1 2 3 4 5 6 7 8 9
1 2 3 4 5 6 7 8 9
1 2 3 4 5 6 7 8 9
1 2 3 4 5 6 7 8 9
1 2 3 4 5 6 7 8 9
1 2 3 4 5 6 7 8 9
1 2 3 4 5 6 7 8 9
])
(= (array-read arr 10) 2)

2
lispBM/lispBM/tests/test_progn_5.lisp Normal file
View File

@ -0,0 +1,2 @@
(eq (progn) nil)

2
lispBM/lispBM/tests/test_progn_6.lisp Normal file
View File

@ -0,0 +1,2 @@
(eq (progn (+ 1 2)) 3)