factor: remove rest of double paren words.

[factor.git] / basis / stack-checker / transforms / transforms.factor

diff --git a/basis/stack-checker/transforms/transforms.factor b/basis/stack-checker/transforms/transforms.factor
index 7460965d6ef2f2e3de305381dfd8faa84aea4c14..b5d087098feaa0a99a49e06b59c4ff2d1720f153 100644 (file)
--- a/basis/stack-checker/transforms/transforms.factor
+++ b/basis/stack-checker/transforms/transforms.factor
@@ -13,7 +13,7 @@ IN: stack-checker.transforms
     [ error-continuation get current-word get transform-expansion-error ]
     recover ;
 
-:: ((apply-transform)) ( quot values stack rstate -- )
+:: apply-literal-values-transform ( quot values stack rstate -- )
     rstate recursive-state [ stack quot call-transformer ] with-variable
     values [ length shorten-d ] [ #drop, ] bi
     rstate infer-quot ;
@@ -31,7 +31,7 @@ IN: stack-checker.transforms
                 [ [ literal value>> ] map ]
                 [ first literal recursion>> ] tri
             ] if
-            ((apply-transform))
+            apply-literal-values-transform
         ] }
         { [ dup input-values? ] [ drop current-word get unknown-macro-input ] }
         [ drop current-word get bad-macro-input ]