Permalink
Browse files

Random whitespace fiddling

  • Loading branch information...
1 parent dae2e3d commit 4c52272edce9b26e9cca87f3b6373f7570050e1f @offby1 committed Mar 21, 2012
Showing with 3 additions and 2 deletions.
  1. +3 −2 incubot.rkt
View
@@ -61,10 +61,11 @@ exec racket -l errortrace --require "$0" --main -- ${1+"$@"}
(match-lambda*
[(list (? list? s) (? corpus? c))
(incubot-sentence (wordlist->wordset s) c)]
+
;; only tests use this
- [
- (list (? string? s) (? corpus? c))
+ [(list (? string? s) (? corpus? c))
(incubot-sentence (string->lowercased-words s) c)]
+
[(list (? set? ws) (? corpus? c))
(let ([rare (rarest (omit-needless ws) c)])
(and rare

0 comments on commit 4c52272

Please sign in to comment.