diff --git a/extra/rewrite-closures/rewrite-closures.factor b/extra/rewrite-closures/rewrite-closures.factor
index 6e30a11cfc..31b88eeaa4 100644
--- a/extra/rewrite-closures/rewrite-closures.factor
+++ b/extra/rewrite-closures/rewrite-closures.factor
@@ -14,16 +14,10 @@ IN: rewrite-closures
 
 \ set-parameters [ [set-parameters] ] 1 define-transform
 
-! : parametric-quot ( parameters quot -- quot )
-! [ [ swap ] set-parameters [ ] call ] make* ;
-
 : parametric-quot ( parameters quot -- quot ) '[ , set-parameters , call ] ;
 
 : scoped-quot ( quot -- quot ) [ with-scope ] curry ;
 
-! : closed-quot ( quot -- quot )
-! [ namestack >r [ namestack ] set-namestack [ ] call r> set-namestack ] make* ;
-
 : closed-quot ( quot -- quot )
   namestack swap '[ namestack [ , set-namestack @ ] dip set-namestack ] ;