   (let (done)
     (while (not done)
       (if (not (looking-at "[A-Za-z_]"))
-	  (setq done t)
-	(skip-chars-forward slate-name-chars)
-	(if (equal (following-char) ?:)
-	    (progn
-	      (forward-char)
-	      (slate-forward-sexp)
-	      (slate-forward-whitespace))
-	  (setq done t)
-	  (backward-sexp))))))
+      (setq done t)
+    (skip-chars-forward slate-name-chars)
+    (if (equal (following-char) ?:)
+        (progn
+          (forward-char)
+          (slate-forward-sexp)
+          (slate-forward-whitespace))
+      (setq done t)
+      (backward-sexp))))))
 
 (defun slate-collect-selector ()
   "Point is stationed inside or at the beginning of the selector in question.

      (beginning-of-line)
      (slate-forward-whitespace)
      (when (looking-at "[A-Za-z][A-Za-z0-9]*:") ;indent for colon
	(let ((parse-sexp-ignore-comments t))
	  (beginning-of-line)
	  (slate-backward-whitespace)
	  (unless (memq (preceding-char) '(?. ?| ?\[ ?\( ?\{))
	    (setq is-keyword t)))))
      (setq indent-amount (slate-calculate-indent))
      (slate-indent-to-column indent-amount)))


(defun slate-run-overlay-at-point ()
  (interactive)
  (let* ((overlays (overlays-at (point)))
     (first-overlay (car overlays))
     (code (buffer-substring-no-properties (overlay-start first-overlay)
                    (overlay-end first-overlay))))
    (goto-char (point-max))
    (insert code)
    (slate-send-input code)))
