From 83401103a7ef40bd6ca3a07f082e73591ccee3fb Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 16 Feb 2019 16:48:07 -0600 Subject: [PATCH] locals.rewrite: Rename (rewrite-sugar) word. --- core/locals/rewrite/closures/closures.factor | 2 +- core/locals/rewrite/sugar/sugar.factor | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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' )