Fix conflict

[factor.git] / basis / math / vectors / vectors.factor

diff --git a/basis/math/vectors/vectors.factor b/basis/math/vectors/vectors.factor
index a6967a7218bb86be4343ff188d380e4d0bfe891b..eb5fa7b9705135ae33a099ea5b0ddf4aef1bb8bc 100644 (file)
--- a/basis/math/vectors/vectors.factor
+++ b/basis/math/vectors/vectors.factor
@@ -19,6 +19,9 @@ IN: math.vectors
 : vmax ( u v -- w ) [ max ] 2map ;
 : vmin ( u v -- w ) [ min ] 2map ;
 
+: vsupremum ( seq -- vmax ) [ ] [ vmax ] map-reduce ; 
+: vinfimum ( seq -- vmin ) [ ] [ vmin ] map-reduce ; 
+
 : v. ( u v -- x ) [ * ] [ + ] 2map-reduce ;
 : norm-sq ( v -- x ) [ absq ] [ + ] map-reduce ;
 : norm ( v -- x ) norm-sq sqrt ;