if-empty changes

[factor.git] / extra / math / primes / factors / factors.factor

diff --git a/extra/math/primes/factors/factors.factor b/extra/math/primes/factors/factors.factor
index aba7e90bc906da5b1cf6cd7ed7e93742dc649ca2..83d53c42153a59040665e4bb903881eeef9369c8 100644 (file)
--- a/extra/math/primes/factors/factors.factor
+++ b/extra/math/primes/factors/factors.factor
@@ -10,11 +10,11 @@ IN: math.primes.factors
 
 : (count) ( n d -- n' )
     [ (factor) ] { } make
-    dup empty? [ drop ] [ [ first ] keep length 2array , ] if ;
+    [ [ first ] keep length 2array , ] unless-empty ;
 
 : (unique) ( n d -- n' )
     [ (factor) ] { } make
-    dup empty? [ drop ] [ first , ] if ;
+    [ first , ] unless-empty ;
 
 : (factors) ( quot list n -- )
     dup 1 > [ swap uncons swap >r pick call r> swap (factors) ] [ 3drop ] if ;