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

[factor.git] / core / hashtables / hashtables.factor

diff --git a/core/hashtables/hashtables.factor b/core/hashtables/hashtables.factor
index 6efa706c4929e64c8d074a2768b3f2d03a16ac50..0f6ad5919cd749b9a648a84910b2d23162e63dc8 100644 (file)
--- a/core/hashtables/hashtables.factor
+++ b/core/hashtables/hashtables.factor
@@ -194,7 +194,7 @@ M: hashtable assoc-like
 ERROR: malformed-hashtable-pair seq pair ;
 
 : check-hashtable ( seq -- seq )
-    dup [ dup length 2 = [ drop ] [ throw-malformed-hashtable-pair ] if ] each ;
+    dup [ dup length 2 = [ drop ] [ malformed-hashtable-pair ] if ] each ;
 
 : parse-hashtable ( seq -- hashtable )
     check-hashtable H{ } assoc-clone-like ;