steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

spelling: use ?download-to.

db4
John Benediktsson 2014-06-09 08:58:05 -07:00
parent 1701fe3f59
commit 9ef4a4aab3
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/spelling/spelling.factor
View File

@ -59,9 +59,8 @@ CONSTANT: ALPHABET "abcdefghijklmnopqrstuvwxyz"
ascii file-contents words histogram ; ascii file-contents words histogram ;
MEMO: default-dictionary ( -- counts ) MEMO: default-dictionary ( -- counts )
"big.txt" temp-file dup exists? URL" http://norvig.com/big.txt" "big.txt" temp-file
[ URL" http://norvig.com/big.txt" over download-to ] unless [ ?download-to ] [ load-dictionary ] bi ;
load-dictionary ;
: (correct) ( word dictionary -- word/f ) : (correct) ( word dictionary -- word/f )
corrections ?first ; corrections ?first ;