change ERROR: words from throw-foo back to foo.

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

diff --git a/extra/html/parser/analyzer/analyzer.factor b/extra/html/parser/analyzer/analyzer.factor
index e8721c8785ea3129329d6416f5cab45a1cd88b05..e48f09d6608bf97d771c5a51d63c7104fb26832b 100644 (file)
--- a/extra/html/parser/analyzer/analyzer.factor
+++ b/extra/html/parser/analyzer/analyzer.factor
@@ -36,7 +36,7 @@ IN: html.parser.analyzer
 ERROR: undefined-find-nth m n seq quot ;
 
 : check-trivial-find ( m n seq quot -- m n seq quot )
-    pick 0 = [ throw-undefined-find-nth ] when ; inline
+    pick 0 = [ undefined-find-nth ] when ; inline
 
 : find-nth-from ( m n seq quot -- i/f elt/f )
     check-trivial-find [ f ] 3dip '[