use unless-empty

diff --git a/basis/fry/fry.factor b/basis/fry/fry.factor
index d50fd9442bf72dd62baf65525f6a30e7e803b952..ecb5cbf856deab274f0ce41af75e89b88c02b207 100644 (file)
--- a/basis/fry/fry.factor
+++ b/basis/fry/fry.factor
@@ -26,7 +26,7 @@ M: >r/r>-in-fry-error summary
 
 : check-fry ( quot -- quot )
     dup { load-local load-locals get-local drop-locals } intersect
-    empty? [ >r/r>-in-fry-error ] unless ;
+    [ >r/r>-in-fry-error ] unless-empty ;
 
 PREDICATE: fry-specifier < word { _ @ } memq? ;