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

[factor.git] / extra / pairs / pairs.factor

diff --git a/extra/pairs/pairs.factor b/extra/pairs/pairs.factor
index 4835248cc6e660815f9a86806c3cfd06e3de943d..201b91e5e7b3f918a88a19731800a48d4ef53c9d 100644 (file)
--- a/extra/pairs/pairs.factor
+++ b/extra/pairs/pairs.factor
@@ -31,7 +31,7 @@ M: pair set-at
 ERROR: cannot-delete-key pair ;
 
 M: pair delete-at
-    [ throw-cannot-delete-key ] [
+    [ cannot-delete-key ] [
         [ delete-at ] [ 2drop ] if-hash
     ] if-key ; inline