     (geiser-edit--buttonize-files))
   (and (not key) msg (not (zerop (length msg)))))
 
++
 ;;; Trying to ascertain whether a buffer is Chicken Scheme:
 
 (defconst geiser-chicken--guess-re

(defun geiser-chicken--exit-command () ",q")

(defun geiser-chicken--symbol-begin (module)
  (apply
   'max
   (append
    (list (save-excursion (beginning-of-line) (point))
	  (save-excursion (skip-syntax-backward "^-()>") (point)))
    (mapcar
     (lambda (match-string)
       (save-excursion (skip-chars-backward match-string) (point)))
     geiser-chicken-prefix-delimiters))))

;;; Error display


 (define-interface 1)
 (module 2))


;;; REPL startup

(defconst geiser-chicken-minimum-version "4.8.0.0")
