     (define-key m "\C-x\C-e" 'picolisp-send-last-sexp)
     (define-key m "\C-c\C-l" 'picolisp-load-file)
     m ) )
+
+;; added by tj 2012-03-11
+(defvar picolisp-local-program-name "./pil @lib/too.l +")
+(defvar picolisp-process-number 0)
 
 (defvar picolisp-program-name "/usr/bin/picolisp"
   "The name of the program used to run Picolisp." )

      (backward-sexp)
      (buffer-substring (point) end) ) ) )

;;;###autoload
(defun run-picolisp (cmd)
  "Run an inferior Picolisp process, input and output via buffer `*picolisp*'.

;;;;;; inferior-picolisp: Picolisp repl in a buffer.
;;;;;; Version: 1.1

;;; Copyright (c) 2009, Guillermo R. Palavecino
;;; 2012, Thorsten Jolitz (tj)

;; This file is NOT part of GNU emacs.

