From 9ef4a4aab3e71e9c0bc581ed39ae4e3c408ed3e5 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 9 Jun 2014 08:58:05 -0700
Subject: [PATCH] spelling: use ?download-to.

---
 extra/spelling/spelling.factor | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/extra/spelling/spelling.factor b/extra/spelling/spelling.factor
index 0bf702da5a..22b6024db9 100644
--- 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 ;