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

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

diff --git a/extra/imap/imap-tests.factor b/extra/imap/imap-tests.factor
index 511c2fa3f269c6f59a7e91b4c70fd49ba6742476..d79270cb56650d1ade2388ecd35ad465f6c4c31a 100644 (file)
--- a/extra/imap/imap-tests.factor
+++ b/extra/imap/imap-tests.factor
@@ -29,7 +29,7 @@ IN: imap.tests
 ERROR: no-imap-test-host ;
 
 : get-test-host ( -- host )
-    \ imap-settings get-global host>> [ throw-no-imap-test-host ] unless* ;
+    \ imap-settings get-global host>> [ no-imap-test-host ] unless* ;
 
 : imap-test ( result quot -- )
     '[ \ imap-settings get-global _ with-imap-settings ] unit-test ; inline