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

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