Bootstrap fix

2006-07-23 22:59:45 +00:00 · 2006-07-23 22:59:45 +00:00 · 0bc47536d0
parent 2de4c86f8c
commit 0bc47536d0
1 changed files with 3 additions and 0 deletions
--- a/library/ui/text/document.factor
+++ b/library/ui/text/document.factor
@ -76,6 +76,9 @@ C: document ( -- document )
 : append-last ( str seq -- seq )
    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 )
    tuck loc-col/str tail-slice >r loc-col/str head-slice r>
    pick append-last over prepend-first ;