compiler/vm: Allow words made of curry/compose to compile

put back the `[ ] like`

fixes #2763

diff --git a/basis/compiler/compiler.factor b/basis/compiler/compiler.factor
index 485a923d7c7599d97bff482b2d9c02b00e54ac96..c2a786412a3a55bdb4d85b50104b08cf2c9b19c0 100644 (file)
--- a/basis/compiler/compiler.factor
+++ b/basis/compiler/compiler.factor
@@ -74,7 +74,7 @@ M: word combinator? inline? ;
     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 ;

diff --git a/vm/code_heap.cpp b/vm/code_heap.cpp
index 77aa7ae287670a3186fb8489138af68e76561060..686b0c7208657b127ac428eb59abc6a1b6927c8c 100644 (file)
--- a/vm/code_heap.cpp
+++ b/vm/code_heap.cpp
@@ -143,6 +143,7 @@ void factor_vm::primitive_modify_code_heap() {
 
     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: {