Function: xscheme-parse-command-line

xscheme-parse-command-line is a byte-compiled function defined in xscheme.el.gz.

Signature

(xscheme-parse-command-line STRING)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/xscheme.el.gz
(defun xscheme-parse-command-line (string)
  (setq string (substitute-in-file-name string))
  (let ((start 0)
	(result '()))
    (while start
      (let ((index (string-match "[ \t]" string start)))
	(setq start
	      (cond ((not index)
		     (setq result
			   (cons (substring string start)
				 result))
		     nil)
		    ((= index start)
		     (string-match "[^ \t]" string start))
		    (t
		     (setq result
			   (cons (substring string start index)
				 result))
		     (1+ index))))))
    (nreverse result)))