(module atom mzscheme

  (require "require.ss")
  (require-contracts)
  (require-etc)

  (define atom?
    (disjoin boolean?
             char?
             number?
             symbol?
             string?
             null?
             void?))

  (provide/contract
   [atom? predicate/c]))