steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

locals.rewrite: Rename (rewrite-sugar) word.

modern-harvey3
Doug Coleman 2019-02-16 16:48:07 -06:00
parent b612b5be8c
commit 83401103a7
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/locals/rewrite/closures/closures.factor
View File

@ -14,7 +14,7 @@ GENERIC: rewrite-closures* ( obj -- )
[ [ rewrite-closures* ] each ] [ ] make ; [ [ rewrite-closures* ] each ] [ ] make ;
: rewrite-closures ( form -- form' ) : 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' ) GENERIC: defs-vars* ( seq form -- seq' )

2
core/locals/rewrite/sugar/sugar.factor
View File

@ -12,7 +12,7 @@ IN: locals.rewrite.sugar
GENERIC: rewrite-sugar* ( obj -- ) GENERIC: rewrite-sugar* ( obj -- )
: (rewrite-sugar) ( form -- form' ) : rewrite-sugar ( form -- form' )
[ rewrite-sugar* ] [ ] make ; [ rewrite-sugar* ] [ ] make ;
GENERIC: quotation-rewrite ( form -- form' ) GENERIC: quotation-rewrite ( form -- form' )