spelling: use ?download-to.

diff --git a/extra/spelling/spelling.factor b/extra/spelling/spelling.factor
index 0bf702da5aa798397e27a2e0a315fa5b7459b864..22b6024db9569cb77544c5dcb1cfdcb032cb610d 100644 (file)
--- a/extra/spelling/spelling.factor
+++ b/extra/spelling/spelling.factor
@@ -59,9 +59,8 @@ CONSTANT: ALPHABET "abcdefghijklmnopqrstuvwxyz"
     ascii file-contents words histogram ;
 
 MEMO: default-dictionary ( -- counts )
-    "big.txt" temp-file dup exists?
-    [ URL" http://norvig.com/big.txt" over download-to ] unless
-    load-dictionary ;
+    URL" http://norvig.com/big.txt" "big.txt" temp-file
+    [ ?download-to ] [ load-dictionary ] bi ;
 
 : (correct) ( word dictionary -- word/f )
     corrections ?first ;