urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-14 11:08:45 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fixed off-by-one error when doing %lin wrapping.

Browse Source
This commit is contained in:
Fang 2017-11-02 16:19:50 +01:00
parent de061524cf
commit 80b4278554
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
app/talk-agent.hoon
View File

@ -2067,13 +2067,13 @@
=/ txt (tuba (trip msg.sep))
|- ^- (list tape)
?~ txt ~
=/ end
?: (lte (lent txt) wyd) (lent txt)
=+ ^- {end/@ud nex/?}
?: (lte (lent txt) wyd) [(lent txt) &]
=+ ace=(find " " (flop (scag +(wyd) `(list @c)`txt)))
?~ ace wyd
(sub wyd u.ace)
?~ ace [wyd |]
[(sub wyd u.ace) &]
:- (weld pef (tufa (scag end `(list @c)`txt)))
$(txt (slag +(end) `(list @c)`txt), pef (reap (lent pef) ' '))
$(txt (slag ?:(nex +(end) end) `(list @c)`txt), pef (reap (lent pef) ' '))
::
$inv
:_ ~