Condensced into two lines on average
=^ maybe-schematic-results out
%- perform-schematics :*
;: weld
- "ford: %bake "
- (trip renderer)
- " on "
- (spud (rail-to-path path-to-render))
- " contained failures:"
+ "ford: %bake " (trip renderer) " on "
+ (spud (rail-to-path path-to-render)) " contained failures:"
==
sub-schematics
%fail-on-errors
:_ message.u.input-result
:- %leaf
;: weld
- "ford: %cast "
- (trip mark)
- "on ["
- (trip (scot %p ship.disc))
- " "
- (trip desk.disc)
- "] failed on input:"
+ "ford: %cast " (trip mark) "on [" (trip (scot %p ship.disc))
+ " " (trip desk.disc) "] failed on input:"
==
::
?> ?=([~ %success *] input-result)
:_ message.u.translation-path-result
:- %leaf
;: weld
- "ford: %cast "
- (trip mark)
- "on ["
- (trip (scot %p ship.disc))
- " "
- (trip desk.disc)
- "] failed:"
+ "ford: %cast " (trip mark) "on [" (trip (scot %p ship.disc))
+ " " (trip desk.disc) "] failed:"
==
::
?> ?=([~ %success %walk *] translation-path-result)
source-mark
target-mark
;: weld
- "ford: %cast failed to find path for mark "
- (trip source-mark)
+ "ford: %cast failed to find path for mark " (trip source-mark)
" during +grab:"
==
mark-path-result
source-mark
target-mark
;: weld
- "ford: %cast failed to find path for mark "
- (trip source-mark)
+ "ford: %cast failed to find path for mark " (trip source-mark)
" during +grow:"
==
starting-mark-path-result
:_ ~
:- %leaf
;: weld
- "ford: %cast from "
- (trip src)
- " to "
- (trip dst)
+ "ford: %cast from " (trip src) " to " (trip dst)
" failed: nest fail"
==
::
:* :- %leaf
;: weld
"ford: %cast failed while trying to cast from "
- (trip source-mark)
- " to "
- (trip target-mark)
- ":"
+ (trip source-mark) " to " (trip target-mark) ":"
==
[%leaf description]
message.u.result
=^ maybe-schematic-results out
%- perform-schematics :*
;: weld
- "ford: %path resolution of "
- (trip raw-path)
- "at prefix "
- (trip prefix)
- " contained failures:"
+ "ford: %path resolution of " (trip raw-path) "at prefix "
+ (trip prefix) " contained failures:"
==
rails-and-schematics
%filter-errors
:* %build-result %error
:* :- %leaf
;: weld
- "ford: no mark path from "
- (trip source)
- " to "
+ "ford: no mark path from " (trip source) " to "
(trip target)
==
errors
=^ maybe-path-results out
%- perform-schematics :*
;: weld
- "ford: %walk from "
- (trip source)
- " to "
- (trip target)
+ "ford: %walk from " (trip source) " to " (trip target)
" contained failures:"
==
nodes-and-schematics
=^ maybe-core-results out
%- perform-schematics :*
;: weld
- "ford: %walk from "
- (trip source)
- " to "
- (trip target)
+ "ford: %walk from " (trip source) " to " (trip target)
" contained failures:"
==
nodes-and-cores
