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];
|
||||
|
||||
if (lbm_is_symbol_nil(rest)) {
|
||||
lbm_stack_drop(&ctx->K, 2);
|
||||
ctx->app_cont = true;
|
||||
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