From 5917e58c8698b8386b24db298c405f48cc2437f9 Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <ehrenbed@carleton.edu>
Date: Mon, 24 Dec 2007 20:48:29 -0500
Subject: [PATCH] Fixed XML bug which made everything stop compiling

---
 extra/delegate/delegate.factor | 4 +++-
 extra/xml/data/data.factor     | 4 ++--
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/extra/delegate/delegate.factor b/extra/delegate/delegate.factor
index 962746ec1a..8ff5e2110b 100644
--- a/extra/delegate/delegate.factor
+++ b/extra/delegate/delegate.factor
@@ -45,8 +45,10 @@ PROTOCOL: sequence-protocol
     set-nth set-nth-unsafe length set-length lengthen ;
 
 PROTOCOL: assoc-protocol
-    at* assoc-size >alist assoc-find set-at
+    at* assoc-size >alist set-at assoc-clone-like
     delete-at clear-assoc new-assoc assoc-like ;
+    ! assoc-find excluded because GENERIC# 1
+    ! everything should work, just slower (with >alist)
 
 PROTOCOL: stream-protocol
     stream-close stream-read1 stream-read stream-read-until
diff --git a/extra/xml/data/data.factor b/extra/xml/data/data.factor
index d3f89d3807..ae54816471 100644
--- a/extra/xml/data/data.factor
+++ b/extra/xml/data/data.factor
@@ -96,10 +96,10 @@ CONSULT: sequence-protocol tag tag-children ;
 INSTANCE: tag sequence
 
 M: tag like
-    over tag? [
+    over tag? [ drop ] [
         [ delegate ] keep tag-attrs
         rot dup [ V{ } like ] when <tag>
-    ] unless ;
+    ] if ;
 
 M: tag clone
     [ delegate clone ] keep [ tag-attrs clone ] keep