Don't generate diffs we can't apply

This commit is contained in:
Steve Dee 2014-04-15 17:43:15 -07:00
parent 1d347ede31
commit 93193477cc

View File

@ -3753,9 +3753,9 @@
|= [old=* new=*] ^- udon
:- pum
?+ pum ~|(%unsupported !!)
%a [%d (nude old new)]
%a [%a old new]
%b =+ [hel=(cue ((hard ,@) old)) hev=(cue ((hard ,@) new))]
[%d (nude hel hev)]
[%a old new]
%c =+ [hel=(lore ((hard ,@) old)) hev=(lore ((hard ,@) new))]
[%c (lusk hel hev (loss hel hev))]
==