if-empty changes

[factor.git] / extra / cords / cords.factor

diff --git a/extra/cords/cords.factor b/extra/cords/cords.factor
index 52cb9914b4e8db65334d30a640537f839bab2ee3..915744491fa6ce3b1c97a495da767e755592a592 100644 (file)
--- a/extra/cords/cords.factor
+++ b/extra/cords/cords.factor
@@ -27,7 +27,7 @@ M: multi-cord virtual@
     [ first - ] [ second ] bi ;
 
 M: multi-cord virtual-seq
-    seqs>> dup empty? [ drop f ] [ first second ] if ;
+    seqs>> [ f ] [ first second ] if-empty ;
 
 : <cord> ( seqs -- cord )
     dup length 2 = [