Fixing everything for mandatory stack effects

[factor.git] / extra / reports / noise / noise.factor

diff --git a/extra/reports/noise/noise.factor b/extra/reports/noise/noise.factor
index f94c774943350e0799906cad2e200218f776c3ff..3537d2e719de6fb38af72b1ce17efa40aad9201a 100755 (executable)
--- a/extra/reports/noise/noise.factor
+++ b/extra/reports/noise/noise.factor
@@ -85,7 +85,7 @@ IN: reports.noise
         { spread 2 }\r
     } at 0 or ;\r
 \r
-: vsum { 0 0 } [ v+ ] reduce ;\r
+: vsum ( pairs -- pair ) { 0 0 } [ v+ ] reduce ;\r
 \r
 GENERIC: noise ( obj -- pair )\r
 \r
@@ -105,7 +105,7 @@ M: quotation noise [ noise ] map vsum { 1/4 1/2 } v+ ;
 \r
 M: array noise [ noise ] map vsum ;\r
 \r
-: noise-factor / 100 * >integer ;\r
+: noise-factor ( x y -- z ) / 100 * >integer ;\r
 \r
 : quot-noise-factor ( quot -- n )\r
     #! For very short words, noise doesn't count so much\r