From 144da45241a56fec5fb913dcc8c036ff59772eda Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 27 Jan 2018 12:01:09 -0600
Subject: [PATCH] math.vectors.simd: fix functor.

---
 basis/math/vectors/simd/simd.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/math/vectors/simd/simd.factor b/basis/math/vectors/simd/simd.factor
index 0408f1e76d..1e07f909a4 100644
--- a/basis/math/vectors/simd/simd.factor
+++ b/basis/math/vectors/simd/simd.factor
@@ -328,12 +328,12 @@ DEFER: ${type}-boa
 
 <<
 \ ${type}-boa
-[ $[ ${type}-coercer ] $[ ${type}-rep rep-length ] napply ] ${type}-rep rep-length {
+[ $[ ${type}-coercer ] $[ ${type}-rep rep-length ] napply ] $[ ${type}-rep rep-length ] {
     { 2 [ [ ${type}-rep (simd-gather-2) ${type} boa ] ] }
     { 4 [ [ ${type}-rep (simd-gather-4) ${type} boa ] ] }
     [ \ ${type} new '[ _ _ nsequence ] ]
 } case compose
-${type}-rep rep-length "n" <array> { "v" } <effect> define-inline
+$[ $[ ${type}-rep rep-length ] "n" <array> { "v" } <effect> ] define-inline
 >>
 
 M: ${type} pprint-delims drop \ ${type}{ \ } ;