;;; Guile-Debugging convenience functions

(require 'gds)
(require 'gds-server)
(require 'gds-scheme)

(defvar guile-scratch-buffer-name "*guile-scratch*"
  "Name of the Guile evaluation scratch buffer")

(defun make-guile-scratch-buffer ()
  (interactive)
  (let ((scratch-buf (generate-new-buffer guile-scratch-buffer-name)))
    (switch-to-buffer scratch-buf)
    (scheme-mode)
    (gds-auto-associate-buffer)))