factor: fix some spacing

[factor.git] / extra / math / dual / dual.factor

diff --git a/extra/math/dual/dual.factor b/extra/math/dual/dual.factor
index b125861c83aa538c60aca88091d951b757569643..409a921f834ea15796b8c6658e389d9aa85cfa3e 100644 (file)
--- a/extra/math/dual/dual.factor
+++ b/extra/math/dual/dual.factor
@@ -33,10 +33,10 @@ MACRO: ordinary-op ( word -- o )
 ! This allows a set of partial derivatives each to be evaluated
 ! at the same point.
 MACRO: duals>nweave ( n -- quot )
-   dup dup dup
-   '[
-       [ [ epsilon-part>> ] _ napply ] _ nkeep
-       [ ordinary-part>> ] _ napply _ nweave
+    dup dup dup
+    '[
+        [ [ epsilon-part>> ] _ napply ] _ nkeep
+        [ ordinary-part>> ] _ napply _ nweave
     ] ;
 
 MACRO: chain-rule ( word -- e )