s c h e m e w i k i . o r g

(define word-boundary?
  (lambda (character)
    (list? (memq character '(#\space #\tab #\newline)))))