add ford printf in bad situation

This commit is contained in:
Philip Monk 2019-02-22 14:16:22 -08:00
parent e319df9e8d
commit 3f74d30085
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC

View File

@ -5751,7 +5751,10 @@
:: ::
=? state ?=(^ last-sent.live.duct-status) =? state ?=(^ last-sent.live.duct-status)
=/ old-build=^build build(date date.u.last-sent.live.duct-status) =/ old-build=^build build(date date.u.last-sent.live.duct-status)
~& [%x-live-15 our (build-to-tape build) (build-to-tape old-build)] ~? =(date.build date.old-build)
:+ "old and new builds have same date, will probably crash!"
(build-to-tape build)
(build-to-tape old-build)
:: ::
(remove-anchor-from-root old-build [%duct duct]) (remove-anchor-from-root old-build [%duct duct])
:: ::