classes.predicate: simplify predicate-quot with fry.

diff --git a/core/classes/predicate/predicate.factor b/core/classes/predicate/predicate.factor
index 857d8599d0ae071bdbb1a139f35e2cea745c23fe..96726f5ee3fb754b41e6aaf5abc950574a828847 100644 (file)
--- a/core/classes/predicate/predicate.factor
+++ b/core/classes/predicate/predicate.factor
@@ -12,12 +12,9 @@ PREDICATE: predicate-class < class
 GENERIC: predicate-quot ( class -- quot )
 
 M: predicate-class predicate-quot
-    [
-        \ dup ,
-        [ superclass-of predicate-def % ]
-        [ "predicate-definition" word-prop , ] bi
-        [ drop f ] , \ if ,
-    ] [ ] make ;
+    [ superclass-of predicate-def ]
+    [ "predicate-definition" word-prop ] bi
+    '[ dup @ _ [ drop f ] if ] ;
 
 PRIVATE>