From 9ecf8ec3db08d986ff26a93e59a7d696112df7cd Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jobim.local>
Date: Wed, 1 Apr 2009 12:47:17 -0500
Subject: [PATCH] remove dead code
---
extra/html/parser/parser.factor | 4 ----
1 file changed, 4 deletions(-)
diff --git a/extra/html/parser/parser.factor b/extra/html/parser/parser.factor
index 317337073b..f95684ae15 100644
--- a/extra/html/parser/parser.factor
+++ b/extra/html/parser/parser.factor
@@ -51,10 +51,6 @@ SYMBOL: tagstack
skip-whitespace
[ current { [ CHAR: = = ] [ blank? ] } 1|| ] take-until ;
-: read-=1 ( state-parser -- )
- skip-whitespace
- [ [ current CHAR: = = ] take-until drop ] [ next drop ] bi ;
-
: read-token ( state-parser -- string )
[ current blank? ] take-until ;