From 415d89e82141ef85a3224eaead798e2c65b263cc Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 11 Aug 2009 21:18:43 -0500
Subject: [PATCH] use unless-empty

---
 basis/fry/fry.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/fry/fry.factor b/basis/fry/fry.factor
index d50fd9442b..ecb5cbf856 100644
--- 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? ;