Remove unused stack effects from DEFER: declarations.

diff --git a/basis/csv/csv.factor b/basis/csv/csv.factor
index 123647ac057c7b26382407d945845fb7dbb0b023..014385e716d65722bd80ff841e3c8729ae2870f0 100644 (file)
--- a/basis/csv/csv.factor
+++ b/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

diff --git a/basis/serialize/serialize.factor b/basis/serialize/serialize.factor
index 7debb1ae615b511873dae2b273715f902412a25d..a999a20eb63bcfe076e8c78bfb213510be4343a1 100644 (file)
--- a/basis/serialize/serialize.factor
+++ b/basis/serialize/serialize.factor
@@ -162,7 +162,7 @@ M: wrapper (serialize) ( obj -- )
     CHAR: W write1
     wrapped>> (serialize) ;
 
-DEFER: (deserialize) ( -- obj )
+DEFER: (deserialize)
 
 SYMBOL: deserialized
 

diff --git a/basis/stack-checker/transforms/transforms-tests.factor b/basis/stack-checker/transforms/transforms-tests.factor
index e5d75de45a67227ebf494ba9379296a1a6d39056..3c0fb988b78d8b19c5d46a5f4f3b388c3e19f457 100644 (file)
--- a/basis/stack-checker/transforms/transforms-tests.factor
+++ b/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
 

diff --git a/extra/benchmark/raytracer-simd/raytracer-simd.factor b/extra/benchmark/raytracer-simd/raytracer-simd.factor
index e90708c62d734e95f81ae4cb21174f6cb20998ac..15401c45a593584f9b4468ed0e525ef3c11c03ef 100644 (file)
--- a/extra/benchmark/raytracer-simd/raytracer-simd.factor
+++ b/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 ;

diff --git a/extra/benchmark/raytracer/raytracer.factor b/extra/benchmark/raytracer/raytracer.factor
index 868743b46a2c2885f447fc17a7d1216b7176836e..4e8f618fd6a59be13d888e9a09d15b0a56e6be3e 100644 (file)
--- a/extra/benchmark/raytracer/raytracer.factor
+++ b/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 ;

diff --git a/extra/math/text/french/french.factor b/extra/math/text/french/french.factor
index 8d313b91970f4fcc3dfe4eba2fa4417e7bf8879f..6d4987fddcaf6cf37a85066bada6c2def7a92eca 100644 (file)
--- a/extra/math/text/french/french.factor
+++ b/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" }