sequences.extras: adding some tests

diff --git a/extra/sequences/extras/extras-tests.factor b/extra/sequences/extras/extras-tests.factor
index 53104befe7033f88fa843fa2a16b4dfef3bd71b0..1dfb3ec5c4a9b82f6964745ddeb8d7e6da6afa37 100644 (file)
--- a/extra/sequences/extras/extras-tests.factor
+++ b/extra/sequences/extras/extras-tests.factor
@@ -162,6 +162,9 @@ math prettyprint sequences sequences.extras strings tools.test ;
 { V{ 0 4 } } [ { 5 3 2 10 5 } [ 5 = ] arg-where ] unit-test
 { { 2 1 0 4 3 } } [ { 5 3 2 10 5 } arg-sort ] unit-test
 
+{ 10 } [ { 4 3 2 1 } [ 10 * ] map-infimum ] unit-test
+{ 40 } [ { 4 3 2 1 } [ 10 * ] map-supremum ] unit-test
+
 { t } [ { 1 2 3 4 5 } 1 first= ] unit-test
 { t } [ { 1 2 3 4 5 } 2 second= ] unit-test
 { t } [ { 1 2 3 4 5 } 3 third= ] unit-test

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 1704ca20558d05777c01094972982918fd0e059b..770a3aafff8b46cb1e2c4340ef726159b7c9e159 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -643,10 +643,10 @@ PRIVATE>
     ] if-empty ;
 
 : map-infimum ( seq quot: ( ... elt -- ... elt' ) -- elt' )
-    [ min ] map-reduce ;
+    [ min ] map-reduce ; inline
 
 : map-supremum ( seq quot: ( ... elt -- ... elt' ) -- elt' )
-    [ max ] map-reduce ;
+    [ max ] map-reduce ; inline
 
 : change-last ( seq quot -- )
     [ index-of-last ] [ change-nth ] bi* ; inline