factor: use `[ ] append-as` and `[ ] concat-as` in more places

[factor.git] / basis / compiler / compiler.factor

diff --git a/basis/compiler/compiler.factor b/basis/compiler/compiler.factor
index c2a786412a3a55bdb4d85b50104b08cf2c9b19c0..485a923d7c7599d97bff482b2d9c02b00e54ac96 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 ] [ ] like ;
+    '[ _ _ not-compiled ] ;
 
 : deoptimize* ( word -- * )
     dup def>> deoptimize-with ;