(boundp 'aquamacs-version)

(unless (null window-system) ...)

M-x emacs-version

(emacs-version)

(if (window-system)
    "window-based"
  "text-based")

(if (or (eq window-system 'ns)
        (eq window-system 'mac))
    (message "hello, world!"))