Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...

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

diff --git a/extra/math/dual/dual.factor b/extra/math/dual/dual.factor
index 3e0e5437b4bff5491f635499f7db2ce05d865b19..55789778af26ad7f1dc7eaecf978f44c1bf6a95e 100644 (file)
--- a/extra/math/dual/dual.factor
+++ b/extra/math/dual/dual.factor
@@ -45,7 +45,7 @@ MACRO: duals>nweave ( n -- )
 MACRO: chain-rule ( word -- e )
     [ input-length '[ _ duals>nweave ] ]
     [ "derivative" word-prop ]
-    [ input-length 1+ '[ _ nspread ] ]
+    [ input-length 1 + '[ _ nspread ] ]
     tri
     '[ [ @ _ @ ] sum-outputs ] ;
 
@@ -80,4 +80,4 @@ MACRO: dual-op ( word -- )
 
 ! Specialize math functions to operate on dual numbers.
 [ all-words [ "derivative" word-prop ] filter
-    [ define-dual ] each ] with-compilation-unit
\ No newline at end of file
+    [ define-dual ] each ] with-compilation-unit