From 272b919fb720eace77c3ea6d08146c92cbbc941b Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <littledan@Macintosh-103.local>
Date: Wed, 21 Jan 2009 00:17:25 -0600
Subject: [PATCH] Removed a spin

---
 basis/xml/tokenize/tokenize.factor | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/basis/xml/tokenize/tokenize.factor b/basis/xml/tokenize/tokenize.factor
index a1091298c2..20ff888305 100644
--- a/basis/xml/tokenize/tokenize.factor
+++ b/basis/xml/tokenize/tokenize.factor
@@ -340,11 +340,13 @@ DEFER: direct
     } case <doctype-decl> ;
 
 : take-entity-def ( var -- entity-name entity-def )
-    take-word pass-blank get-char {
-        { CHAR: ' [ parse-quote ] }
-        { CHAR: " [ parse-quote ] }
-        [ drop take-external-id ]
-    } case [ spin [ ?set-at ] change ] 2keep ;
+    [
+        take-word pass-blank get-char {
+            { CHAR: ' [ parse-quote ] }
+            { CHAR: " [ parse-quote ] }
+            [ drop take-external-id ]
+        } case swap
+   ] dip [ [ ?set-at ] change ] 2keep swap ;
 
 : take-entity-decl ( -- entity-decl )
     pass-blank get-char {