Remove unused stack effects from DEFER: declarations.

basis/csv/csv.factor

@@ -13,7 +13,7 @@ CHAR: , delimiter set-global
 
 : delimiter> ( -- delimiter ) delimiter get ; inline
 
-DEFER: quoted-field ( -- endchar )
+DEFER: quoted-field
 
 : skip-to-field-end ( -- endchar )
   "\n" delimiter> suffix read-until nip ; inline

basis/serialize/serialize.factor

@@ -162,7 +162,7 @@ M: wrapper (serialize) ( obj -- )
     CHAR: W write1
     wrapped>> (serialize) ;
 
-DEFER: (deserialize) ( -- obj )
+DEFER: (deserialize)
 
 SYMBOL: deserialized
 

basis/stack-checker/transforms/transforms-tests.factor

@@ -43,7 +43,7 @@ C: <color> color
 [ bad-new-test ] must-fail
 
 ! Corner case if macro expansion calls 'infer', found by Doug
-DEFER: smart-combo ! ( quot -- )
+DEFER: smart-combo
 
 \ smart-combo [ infer [ ] curry ] 1 define-transform
 

extra/benchmark/raytracer-simd/raytracer-simd.factor

@@ -111,7 +111,7 @@ CONSTANT: initial-hit T{ hit f double-4{ 0.0 0.0 0.0 0.0 } 1/0. }
 : create-center ( c r d -- c2 )
     [ 3.0 12.0 sqrt / * ] dip n*v v+ ; inline no-compile
 
-DEFER: create ( level c r -- scene )
+DEFER: create
 
 : create-step ( level c r d -- scene )
     over [ create-center ] dip 2.0 / [ 1 - ] 2dip create ;

extra/benchmark/raytracer/raytracer.factor

@@ -120,7 +120,7 @@ CONSTANT: initial-hit T{ hit f double-array{ 0.0 0.0 0.0 } 1/0. }
 : create-center ( c r d -- c2 )
     [ 3.0 12.0 sqrt / * ] dip n*v v+ ; inline
 
-DEFER: create ( level c r -- scene )
+DEFER: create
 
 : create-step ( level c r d -- scene )
     over [ create-center ] dip 2.0 / [ 1 - ] 2dip create ;

extra/math/text/french/french.factor

@@ -6,7 +6,7 @@ IN: math.text.french
 
 <PRIVATE
 
-DEFER: basic ( n -- str )
+DEFER: basic
 
 CONSTANT: literals
     H{ { 0 "zéro" } { 1 "un" } { 2 "deux" } { 3 "trois" } { 4 "quatre" }