                 (while (not (looking-at "\\s("))
                   (backward-char 1)
                   (cond ((looking-at "\\s\)")
-                         (message "->> )")
                          (forward-char 1)
                          (backward-list 1)
                          (backward-char 1)))

application honoring this will then return from main to allow the
editor to trigger recompilations etc. and possibly resume main()"
  (interactive)
  (with-current-buffer zomp-toplevel-buffer-name
    (comint-interrupt-subjob)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


  "Send some text to the zomp toplevel. If
  `create-if-not-existing' is 'create then the toplevel will be
  started if it is not running, yet"
  (if (not (or create-if-not-existing (zomp-get-toplevel-buffer)))
      (message "Zomp shell is not running")
    (process-send-string (zomp-get-toplevel-buffer create-if-not-existing) "!prompt
")
    (process-send-string
     (zomp-get-toplevel-buffer create-if-not-existing)
     (concat code (or append "
")))
    (process-send-string (zomp-get-toplevel-buffer) "!prompt #
")))

(defun zomp-tl-run (funcname)
  (interactive "MName of function: ")
