Merge remote-tracking branch 'origin/html5-force-push'

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

diff --git a/extra/modern/html/html.factor b/extra/modern/html/html.factor
index d5d33ed20be8e28f37eed61bc99cedc9cc7e1ed9..4082e930cdc98ca7318f96faf12c0d1217281b12 100644 (file)
--- a/extra/modern/html/html.factor
+++ b/extra/modern/html/html.factor
@@ -159,10 +159,6 @@ C: <dquote> dquote
     ">" expect-and-span
     <close-tag> ;
 
-:: shorten* ( vector n -- seq )
-    vector n tail
-    n vector shorten ;
-
 : unclosed-open-tag? ( obj -- ? )
     { [ open-tag? ] [ close-tag>> not ] } 1&& ; inline