[plt-scheme] atom?

I just fell over this in (lib "compat.ss")

   (atom? v)      PROCEDURE
   Same as (not (pair? v)).

and gave it a spin:

   > (require (lib "compat.ss"))
   > (atom? 'foo)
   #t
   > (atom? (vector 1 2))
   #t

Hmm...

Wouldn't

(define (atom? o)
   (or (void? o)
       (boolean? o)
       (number? 0)
       (char? o)
       (symbol? o)
       (keyword? o)
       (null? o)))

be better?

-- 
Jens Axel Søgaard