From 401dd4733531f3ea5c228c774e5206c128599850 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 5 Nov 2012 08:42:50 -0800
Subject: [PATCH] math.matrices: Add m+n, m-n, n+m, n-m, words.

---
 basis/math/matrices/matrices.factor | 4 ++++
 1 file changed, 4 insertions(+)

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 ;