put back the `[ ] like`
fixes #2763
swap [ finish-compilation ] [ compiled get set-at ] bi return ;
: not-compiled-def ( word error -- def )
swap [ finish-compilation ] [ compiled get set-at ] bi return ;
: not-compiled-def ( word error -- def )
- '[ _ _ not-compiled ] ;
+ '[ _ _ not-compiled ] [ ] like ;
: deoptimize* ( word -- * )
dup def>> deoptimize-with ;
: deoptimize* ( word -- * )
dup def>> deoptimize-with ;
switch (data.type()) {
case QUOTATION_TYPE:
switch (data.type()) {
case QUOTATION_TYPE:
+ case TUPLE_TYPE: // for curry/compose, see issue #2763
jit_compile_word(word.value(), data.value(), false);
break;
case ARRAY_TYPE: {
jit_compile_word(word.value(), data.value(), false);
break;
case ARRAY_TYPE: {