clay: fix meet-conflict crash

This commit is contained in:
Philip Monk 2019-11-10 14:33:48 -08:00
parent 5c1d68bf44
commit e603681097
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC

View File

@ -1370,7 +1370,7 @@
%- ~(uni by `(map path *)`can.bob-diffs)
`(map path *)`old.bob-diffs
?^ bof
(error:he cas %meet-conflict >(~(run by `(map path *)`bof) ,~)< ~)
(error:he cas %meet-conflict >(~(run by `(map path *)`bof) _~)< ~)
=/ old=(map path lobe)
%+ roll ~(tap by (~(uni by old.ali-diffs) old.bob-diffs))
=< .(old q.bas)