From 2c8866c1394621df946af41da99e8802a1c89632 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Tue, 8 Jul 2008 23:08:12 -0500
Subject: [PATCH] documents: move from delegation to inheritance

---
 extra/documents/documents.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/extra/documents/documents.factor b/extra/documents/documents.factor
index 9e4802c2ef..d046102ec9 100755
--- 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 ;