From c7a070ba8e08f2c39ecfc0de124195c978b277ad Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <littledan@Macintosh-103.local>
Date: Wed, 4 Feb 2009 13:25:51 -0600
Subject: [PATCH] Fixing typo in xml.dispatch

---
 basis/xml/dispatch/dispatch.factor | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/basis/xml/dispatch/dispatch.factor b/basis/xml/dispatch/dispatch.factor
index f6b9e107e3..af47f7c14c 100644
--- a/basis/xml/dispatch/dispatch.factor
+++ b/basis/xml/dispatch/dispatch.factor
@@ -8,10 +8,14 @@ TUPLE: no-tag name word ;
 M: no-tag summary
     drop "The tag-dispatching word has no method for the given tag name" ;
 
+<PRIVATE
+
 : compile-tags ( word xtable -- quot )
     >alist swap '[ _ no-tag boa throw ] suffix
     '[ dup main>> _ case ] ;
 
+PRIVATE>
+
 : define-tags ( word -- )
     dup dup "xtable" word-prop compile-tags define ;