From 292ebd4a4cd9f0374b1a109e518fd064d041082a Mon Sep 17 00:00:00 2001 From: Daniel Ehrenberg Date: Wed, 4 Feb 2009 12:34:18 -0600 Subject: [PATCH] Fixing xml.dispatch --- basis/xml/dispatch/dispatch.factor | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/basis/xml/dispatch/dispatch.factor b/basis/xml/dispatch/dispatch.factor index 9c4a2448c6..f6b9e107e3 100644 --- a/basis/xml/dispatch/dispatch.factor +++ b/basis/xml/dispatch/dispatch.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2005, 2009 Daniel Ehrenberg ! See http://factorcode.org/license.txt for BSD license. USING: words assocs kernel accessors parser sequences summary -lexer splitting fry combinators ; +lexer splitting fry combinators locals ; IN: xml.dispatch TUPLE: no-tag name word ; @@ -15,9 +15,6 @@ M: no-tag summary : define-tags ( word -- ) dup dup "xtable" word-prop compile-tags define ; -: define-tag ( string word quot -- ) - -rot [ "xtable" word-prop set-at ] [ define-tags ] bi ; - :: define-tag ( string word quot -- ) quot string word "xtable" word-prop set-at word define-tags ;