splitting: oh array literals...

2016-06-23 23:41:00 -07:00 · 2016-06-23 23:41:00 -07:00 · 0c22382c98
parent 2fab20e878
commit 0c22382c98
1 changed files with 1 additions and 1 deletions
--- a/core/splitting/splitting.factor
+++ b/core/splitting/splitting.factor
@ -102,7 +102,7 @@ PRIVATE>
    split dup length 1 = [ first ] [ [ >array ] map ] if ; inline

 : split-dashes ( seq -- seq/seq' )
-    { \ -- } ?split ; inline
+    \ -- 1array ?split ; inline

 : split-slice ( seq separators -- pieces )
    [ member? ] curry split-when-slice ; inline