steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Bootstrap fix

slava 2006-07-23 22:59:45 +00:00
parent 2de4c86f8c
commit 0bc47536d0
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
library/ui/text/document.factor
View File

@ -76,6 +76,9 @@ C: document ( -- document )
: append-last ( str seq -- seq ) : append-last ( str seq -- seq )
dup length 1- [ swap append ] change-nth ; dup length 1- [ swap append ] change-nth ;
: loc-col/str ( loc document -- col str )
>r first2 swap r> nth ;
: prepare-insert ( newinput startloc endloc lines -- newinput ) : prepare-insert ( newinput startloc endloc lines -- newinput )
tuck loc-col/str tail-slice >r loc-col/str head-slice r> tuck loc-col/str tail-slice >r loc-col/str head-slice r>
pick append-last over prepend-first ; pick append-last over prepend-first ;