From a5baa31784a0576aa85f43abe9e166a9f6eafc0b Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 29 Aug 2008 02:13:08 -0500 Subject: [PATCH] new accessors --- basis/documents/documents.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/documents/documents.factor b/basis/documents/documents.factor index d046102ec9..2eb2cc2762 100755 --- a/basis/documents/documents.factor +++ b/basis/documents/documents.factor @@ -26,7 +26,7 @@ TUPLE: document < model locs ; : remove-loc ( loc document -- ) locs>> delete ; : update-locs ( loc document -- ) - document-locs [ set-model ] with each ; + locs>> [ set-model ] with each ; : doc-line ( n document -- string ) model-value nth ; @@ -132,7 +132,7 @@ TUPLE: document < model locs ; : set-doc-string ( string document -- ) >r string-lines V{ } like r> [ set-model ] keep - dup doc-end swap update-locs ; + [ doc-end ] [ update-locs ] bi ; : clear-doc ( document -- ) "" swap set-doc-string ;