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

[factor.git] / extra / imap / imap.factor

diff --git a/extra/imap/imap.factor b/extra/imap/imap.factor
index 77d7a0c73659346c1f11773a306172dacaf77373..2436af9b322c926ca84e28ef20daa71015fe1e76 100644 (file)
--- a/extra/imap/imap.factor
+++ b/extra/imap/imap.factor
@@ -41,7 +41,7 @@ CONSTANT: IMAP4_SSL_PORT 993
     [ number>string ] map "," join ;
 
 : check-status ( ind data -- )
-    over "OK" = not [ throw-imap4-error ] [ 2drop ] if ;
+    over "OK" = not [ imap4-error ] [ 2drop ] if ;
 
 : read-response-chunk ( stop-expr -- item ? )
     read-?crlf ascii decode swap dupd pcre:findall