diff --git a/basis/math/matrices/matrices.factor b/basis/math/matrices/matrices.factor index bf9aba23a0..efeb0ef6e0 100644 --- a/basis/math/matrices/matrices.factor +++ b/basis/math/matrices/matrices.factor @@ -118,6 +118,10 @@ IN: math.matrices ! Matrix operations : mneg ( m -- m ) [ vneg ] map ; +: n+m ( n m -- m ) [ n+v ] with map ; +: m+n ( m n -- m ) [ v+n ] curry map ; +: n-m ( n m -- m ) [ n-v ] with map ; +: m-n ( m n -- m ) [ v-n ] curry map ; : n*m ( n m -- m ) [ n*v ] with map ; : m*n ( m n -- m ) [ v*n ] curry map ; : n/m ( n m -- m ) [ n/v ] with map ;