mirror of https://github.com/rusefi/bldc.git
Merge commit '829ebc6713701d5f410ddaadc40f4b9d627a8b80'
This commit is contained in:
commit
8915fd8993
|
@ -1482,6 +1482,7 @@ static inline void cont_progn_rest(eval_context_t *ctx) {
|
||||||
env = sptr[0];
|
env = sptr[0];
|
||||||
|
|
||||||
if (lbm_is_symbol_nil(rest)) {
|
if (lbm_is_symbol_nil(rest)) {
|
||||||
|
lbm_stack_drop(&ctx->K, 2);
|
||||||
ctx->app_cont = true;
|
ctx->app_cont = true;
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
|
|
|
@ -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)
|
|
@ -0,0 +1,2 @@
|
||||||
|
|
||||||
|
(eq (progn) nil)
|
|
@ -0,0 +1,2 @@
|
||||||
|
|
||||||
|
(eq (progn (+ 1 2)) 3)
|
Loading…
Reference in New Issue