documents: move from delegation to inheritance

2008-07-08 23:08:12 -05:00 · 2008-07-08 23:08:12 -05:00 · 2c8866c139
parent 515dfd3ef2
commit 2c8866c139
1 changed files with 3 additions and 3 deletions
--- a/extra/documents/documents.factor
+++ b/extra/documents/documents.factor
@ -15,11 +15,11 @@ IN: documents

 : lines-equal? ( loc1 loc2 -- ? ) [ first ] bi@ number= ;

-TUPLE: document locs ;
+TUPLE: document < model locs ;

 : <document> ( -- document )
-    V{ "" } clone <model> V{ } clone
-    { set-delegate set-document-locs } document construct ;
+    V{ "" } clone document new-model
+    V{ } clone >>locs ;

 : add-loc ( loc document -- ) locs>> push ;