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

[factor.git] / extra / crypto / xor / xor.factor

diff --git a/extra/crypto/xor/xor.factor b/extra/crypto/xor/xor.factor
index bfeaf9af970721b09df0e22ef6f078e3e29e2a3d..45bbe55d6eb2deb34ecbac8437241ec6cdec9e12 100644 (file)
--- a/extra/crypto/xor/xor.factor
+++ b/extra/crypto/xor/xor.factor
@@ -8,5 +8,5 @@ IN: crypto.xor
 ERROR: empty-xor-key ;
 
 : xor-crypt ( seq key -- seq' )
-    [ throw-empty-xor-key ] when-empty
+    [ empty-xor-key ] when-empty
     [ dup length iota ] dip '[ _ mod-nth bitxor ] 2map ;