diff --git a/core/locals/rewrite/closures/closures.factor b/core/locals/rewrite/closures/closures.factor index cb17b3be62..f045429b5c 100644 --- a/core/locals/rewrite/closures/closures.factor +++ b/core/locals/rewrite/closures/closures.factor @@ -14,7 +14,7 @@ GENERIC: rewrite-closures* ( obj -- ) [ [ rewrite-closures* ] each ] [ ] make ; : rewrite-closures ( form -- form' ) - expand-macros (rewrite-sugar) (rewrite-closures) point-free ; + expand-macros rewrite-sugar (rewrite-closures) point-free ; GENERIC: defs-vars* ( seq form -- seq' ) diff --git a/core/locals/rewrite/sugar/sugar.factor b/core/locals/rewrite/sugar/sugar.factor index 819c681e39..2bb10026ca 100644 --- a/core/locals/rewrite/sugar/sugar.factor +++ b/core/locals/rewrite/sugar/sugar.factor @@ -12,7 +12,7 @@ IN: locals.rewrite.sugar GENERIC: rewrite-sugar* ( obj -- ) -: (rewrite-sugar) ( form -- form' ) +: rewrite-sugar ( form -- form' ) [ rewrite-sugar* ] [ ] make ; GENERIC: quotation-rewrite ( form -- form' )