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

new accessors

db4
Doug Coleman 2008-08-29 02:13:08 -05:00
parent 144f79ffab
commit a5baa31784
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/documents/documents.factor
View File

@ -26,7 +26,7 @@ TUPLE: document < model locs ;
: remove-loc ( loc document -- ) locs>> delete ; : remove-loc ( loc document -- ) locs>> delete ;
: update-locs ( loc document -- ) : update-locs ( loc document -- )
document-locs [ set-model ] with each ; locs>> [ set-model ] with each ;
: doc-line ( n document -- string ) model-value nth ; : doc-line ( n document -- string ) model-value nth ;
@ -132,7 +132,7 @@ TUPLE: document < model locs ;
: set-doc-string ( string document -- ) : set-doc-string ( string document -- )
>r string-lines V{ } like r> [ set-model ] keep >r string-lines V{ } like r> [ set-model ] keep
dup doc-end swap update-locs ; [ doc-end ] [ update-locs ] bi ;
: clear-doc ( document -- ) : clear-doc ( document -- )
"" swap set-doc-string ; "" swap set-doc-string ;