X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fspelling%2Fspelling.factor;fp=extra%2Fspelling%2Fspelling.factor;h=d48bffdc84ca00ffd987b818cca373039877bbb6;hp=3e9f0911322466e2822a93545dfe0d6d9a1f14fb;hb=e20bf9b97fe60ebe18b8972b2b56fe681fce64a8;hpb=db559f6f98522594be8ef9a9392fb6d95fab3abe diff --git a/extra/spelling/spelling.factor b/extra/spelling/spelling.factor index 3e9f091132..d48bffdc84 100644 --- a/extra/spelling/spelling.factor +++ b/extra/spelling/spelling.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2010 John Benediktsson ! See https://factorcode.org/license.txt for BSD license USING: arrays ascii assocs combinators combinators.smart -http.client io.encodings.ascii io.files io.files.temp kernel +http.download io.encodings.ascii io.files io.files.temp kernel math math.statistics ranges sequences sequences.private sorting splitting urls ; IN: spelling @@ -58,7 +58,7 @@ CONSTANT: ALPHABET "abcdefghijklmnopqrstuvwxyz" MEMO: default-dictionary ( -- counts ) URL" https://norvig.com/big.txt" "big.txt" temp-file - [ ?download-to ] [ load-dictionary ] bi ; + download-to load-dictionary ; : (correct) ( word dictionary -- word/f ) corrections ?first ;