chat-cli: don't crash on %bad-text

This commit is contained in:
Fang 2020-05-14 22:35:05 +02:00
parent 6178ae88fc
commit b35129e517
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972

View File

@ -1452,8 +1452,13 @@
~(glyph tr source)
=/ lis=(list tape)
%+ simple-wrap
~| [%weird-text `@`+.letter]
`tape``(list @)`(tuba (trip +.letter))
=/ result=(each tape tang)
%- mule |.
`(list @)`(tuba (trip +.letter))
?- -.result
%& p.result
%| "[[msg rendering error]]"
==
(sub wyd (min (div wyd 2) (lent pef)))
=+ lef=(lent pef)
=+ ?:((gth (lent lis) 0) (snag 0 lis) "")