Function: xscheme-coerce-prompt

xscheme-coerce-prompt is a byte-compiled function defined in xscheme.el.gz.

Signature

(xscheme-coerce-prompt STRING)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/xscheme.el.gz
(defun xscheme-coerce-prompt (string)
  (if (string-match "^[0-9]+ \\[[^]]+\\] " string)
      (let ((end (match-end 0)))
	(xscheme-process-filter-output (substring string end))
	(substring string 0 (- end 1)))
      string))