print failing marks in lilt

This commit is contained in:
Anton Dyudin 2015-06-03 14:42:26 -07:00
parent 3ed0d1cda4
commit e3df8c3be4

View File

@ -954,8 +954,10 @@
|= [cof=cafe lil=(jug mark mark)]
=* for p.i.all
=+ raf=(fang cof for)
?: =(%2 -.q.raf) (fine cof lil)
%+ cope raf
?: ?=(%2 -.q.raf)
%- (slog 0 leaf/"! {<`mark`for>} build failed, ignoring:" q.q.raf)
(fine cof lil)
%+ cope `(bolt vase)`raf
|= [cof=cafe vax=vase]
%+ fine cof
%- ~(gas ju lil)