if-empty changes

[factor.git] / extra / html / parser / parser.factor

diff --git a/extra/html/parser/parser.factor b/extra/html/parser/parser.factor
index 94a50196a6b6041264d20766df8426a6937a5cbd..ccd225e6e0b9341eaf8aeb911bb2f2eba03e2992 100644 (file)
--- a/extra/html/parser/parser.factor
+++ b/extra/html/parser/parser.factor
@@ -103,11 +103,9 @@ SYMBOL: tagstack
     [ get-char CHAR: < = ] take-until ;
 
 : parse-text ( -- )
-    read-until-< dup empty? [
-        drop
-    ] [
+    read-until-< [
         make-text-tag push-tag
-    ] if ;
+    ] unless-empty ;
 
 : (parse-attributes) ( -- )
     read-whitespace*