colors: merge colors.constants and colors.hex.

[factor.git] / extra / splitting / extras / extras.factor

diff --git a/extra/splitting/extras/extras.factor b/extra/splitting/extras/extras.factor
index 8ce45bac62f17e72bcdc52ea6c1aa3a5f7e11a5e..e57ecff9b33205f94491bffd6309c7d6e398be41 100644 (file)
--- a/extra/splitting/extras/extras.factor
+++ b/extra/splitting/extras/extras.factor
@@ -3,7 +3,7 @@ IN: splitting.extras
 
 <PRIVATE
 
-: (split*) ( seq quot: ( ... elt -- ... ? ) slice-quot -- pieces )
+: (split*) ( ... seq quot: ( ... elt -- ... ? ) slice-quot -- ... pieces )
     [ 0 ] 3dip pick [
         swap curry [ [ 1 + ] when ] prepose [ 2keep ] curry
         [ 2dup = ] prepose [ [ 1 + ] when swap ] compose [
@@ -46,7 +46,7 @@ PRIVATE>
 
 <PRIVATE
 
-:: (split-harvest) ( seq quot: ( ... elt -- ... ? ) slice-quot -- pieces )
+:: (split-harvest) ( ... seq quot: ( ... elt -- ... ? ) slice-quot -- ... pieces )
     seq [ quot call not ] find drop [
         [
             [ seq quot find-from drop ] keep swap