X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fmath%2Ffinance%2Ffinance.factor;h=5954b08c9b3649331aafe2c0d666dc73c6defd7b;hp=4823e358b007137783752f7258d3998eb9727daa;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e

diff --git a/extra/math/finance/finance.factor b/extra/math/finance/finance.factor
index 4823e358b0..5954b08c9b 100644
--- a/extra/math/finance/finance.factor
+++ b/extra/math/finance/finance.factor
@@ -7,10 +7,10 @@ IN: math.finance
 <PRIVATE
 
 : weighted ( x y a -- z )
-    tuck [ * ] [ 1- neg * ] 2bi* + ;
+    tuck [ * ] [ 1 - neg * ] 2bi* + ;
 
 : a ( n -- a )
-    1+ 2 swap / ;
+    1 + 2 swap / ;
 
 PRIVATE>