doc/spell-check-workflow-2.scm


1
2
3
4
5
6
7

(workflow (text-file dictionary)
  (tee (pipe (split-words #:text text-file)
                   (downcase #:words words)
                   (sort (sort-words) #:words downcased-words)
                   (rename #:sorted-words sorted))
             (pipe (sort (sort-dictionary) #:words dictionary)
                   (rename #:sorted-dictionary sorted))))