basis: ERROR: changes.

[factor.git] / basis / help / markup / markup.factor

diff --git a/basis/help/markup/markup.factor b/basis/help/markup/markup.factor
index 61b16ab746970726acbd010343fba14948c662d3..799e45f45be1bc1d4e8cfe857eb7495a8e279f3c 100644 (file)
--- a/basis/help/markup/markup.factor
+++ b/basis/help/markup/markup.factor
@@ -210,11 +210,11 @@ M: word link-long-text
 ERROR: number-of-arguments found required ;
 
 : check-first ( seq -- first )
-    dup length 1 = [ length 1 number-of-arguments ] unless
+    dup length 1 = [ length 1 throw-number-of-arguments ] unless
     first-unsafe ;
 
 : check-first2 ( seq -- first second )
-    dup length 2 = [ length 2 number-of-arguments ] unless
+    dup length 2 = [ length 2 throw-number-of-arguments ] unless
     first2-unsafe ;
 
 PRIVATE>