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

documents: simplify text+loc.

windows-high-dpi
John Benediktsson 2018-02-12 17:45:48 -08:00
parent 0bd052500e
commit 3e15dfc4cb
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/documents/documents.factor
View File

@ -77,14 +77,12 @@ CONSTANT: doc-start { 0 0 }
: (doc-range) ( from to line# document -- slice ) : (doc-range) ( from to line# document -- slice )
[ start/end-on-line ] 2keep doc-line <slice> ; [ start/end-on-line ] 2keep doc-line <slice> ;
: text+loc ( lines loc -- loc ) :: text+loc ( lines loc -- loc )
over [ lines length 1 = [
over length 1 = [ loc first2
nip first2 ] [
] [ loc first lines length 1 - + 0
first swap length 1 - + 0 ] if lines last length + 2array ;
] if
] dip last length + 2array ;
: prepend-first ( str seq -- ) : prepend-first ( str seq -- )
0 swap [ append ] change-nth ; 0 swap [ append ] change-nth ;