restore ford ++fade cool

This commit is contained in:
Anton Dyudin 2015-08-19 15:55:51 -07:00
parent 30890b7e0e
commit c154046543

View File

@ -565,7 +565,7 @@
++ fade :: compile to hood
|= [cof=cafe for=mark bem=beam]
^- (bolt hood)
:: %+ cool |.(leaf/"ford: fade {<[(tope bem)]>}")
%+ cool |.(leaf/"ford: fade {<[(tope bem)]>}")
%+ cope (cope (make cof [%bake for bem ~]) furl)
|= [cof=cafe cay=cage]
%+ (clef %hood) (fine cof bem(r [%ud 0]) cay)