Merge commit 'erg/master'

2008-01-13 17:07:12 -05:00 · 2008-01-13 17:07:12 -05:00 · 4a350d1ccb
parent 969901a73d c27d17e1ec
commit 4a350d1ccb
1 changed files with 1 additions and 1 deletions
--- a/extra/sequences/lib/lib.factor
+++ b/extra/sequences/lib/lib.factor
@ -59,7 +59,7 @@ IN: sequences.lib
    ] { } make ;

 : singleton? ( seq -- ? )
-    length 1 = ; foldable
+    length 1 = ;

 : delete-random ( seq -- value )
    [ length random ] keep [ nth ] 2keep delete-nth ;