;;(load-file "~/dlisp/diagnose.el")
;;(load-file "~/dlisp/directory-files-deep.el")

(defun message (format-string &rest args) (interactive))

(message "file=%s" file)

(when (boundp 'file-to-play)
  (message "*** bar file-to-play=%s" file-to-play)
  )

(if (or (not (boundp 'file-to-play)) (not file-to-play))
    (progn
      (setq file-to-play "g:/sound-samples/connect-four/game-over-b.wav")
      (play-sound (list 'sound :file file-to-play :volume 1.0))
      (message "*** foo"))
  (play-sound (list 'sound :file file-to-play :volume 1.0)))

;;(d-random-play-emacs-midi)

;;; play-wav.el ends here
