core/basis/extra: using while* in a few places.

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

diff --git a/extra/html/entities/entities.factor b/extra/html/entities/entities.factor
index 1baab98029c716cc572c932f4af9acd6752ef1c5..9902326f0b328ba35d67cc96769c7e53578c6c98 100644 (file)
--- a/extra/html/entities/entities.factor
+++ b/extra/html/entities/entities.factor
@@ -28,7 +28,7 @@ PRIVATE>
 
 : html-escape ( str -- newstr )
     [
-        [ dup next-escape dup ] [ escape, ] while 2drop ,
+        [ dup next-escape ] [ escape, ] while* drop ,
     ] { } make dup length 1 > [ concat ] [ first ] if ;
 
 <PRIVATE