From 17cc8ad1f30f332e4ddddfc5878cdedf5d72dd9f Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 22 Nov 2011 19:38:46 -0800
Subject: [PATCH] dlists: use maybe: dlist-link.

---
 basis/dlists/dlists.factor | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

diff --git a/basis/dlists/dlists.factor b/basis/dlists/dlists.factor
index bbac957aa2..758b704708 100644
--- a/basis/dlists/dlists.factor
+++ b/basis/dlists/dlists.factor
@@ -6,13 +6,7 @@ deques fry hashtables kernel parser search-deques sequences
 summary vocabs.loader ;
 IN: dlists
 
-MIXIN: ?dlist-node
-
-INSTANCE: f ?dlist-node
-
-TUPLE: dlist-link { prev ?dlist-node } { next ?dlist-node } ;
-
-INSTANCE: dlist-link ?dlist-node
+TUPLE: dlist-link { prev maybe: dlist-link } { next maybe: dlist-link } ;
 
 TUPLE: dlist-node < dlist-link obj ;
 
@@ -28,8 +22,8 @@ M: dlist-link obj>> ;
     \ dlist-node new-dlist-link ; inline
 
 TUPLE: dlist
-{ front ?dlist-node }
-{ back ?dlist-node } ;
+{ front maybe: dlist-link }
+{ back maybe: dlist-link } ;
 
 : <dlist> ( -- list )
     dlist new ; inline