Fixing everything for mandatory stack effects

[factor.git] / extra / taxes / taxes.factor

diff --git a/extra/taxes/taxes.factor b/extra/taxes/taxes.factor
index 1f4eb556dc09ce6bf83e39ab4e152c3b9ff0893e..5522dd9bcbded816d3d89ac7ada9c6be254388c1 100644 (file)
--- a/extra/taxes/taxes.factor
+++ b/extra/taxes/taxes.factor
@@ -54,7 +54,7 @@ TUPLE: tax-table single married ;
 : <tax-table> ( single married class -- obj )
     >r tax-table boa r> construct-delegate ;
 
-: tax-bracket-range dup second swap first - ;
+: tax-bracket-range ( pair -- n ) dup second swap first - ;
 
 : tax-bracket ( tax salary triples -- tax salary )
     [ [ tax-bracket-range min ] keep third * + ] 2keep