;;;                           patch.ss                                12/11/91
;;;
;;; Notes: Patch File for user defined procedures to be loaded at startup
;;;        The system will automatically load PATCH.SO, so this file must be
;;;        compiled with compile-file.
;;;
;;;        Typically, this file will contain the definition for the editor
;;;        to be used with scheme, and will set the working directory. See 
;;;        examples below.

;
; DOS EXEC funtion
; p = program name string
; t = command tail (program command line parameters)
; e = new DOS environment or "" for current env (see example below)
;
;(define env1 "COMSPEC=C:\COMMAND.COM")
;(define zstr (list->string (list (integer->char 0))))
;(define env2 "PROMPT=$P$G")
;
;(define sample-dos-env (string-append env1 zstr env2))
;

(define e
  (lambda (f)
    (exec "d:\\epsilon\\epsilon.exe" f "")))

;;; s88path gives drive and directory to system files
;;; 
;(set-drive "a")                      ;;; Set drive to A:
;(set-directory "\\")                 ;;; New Directory on drive A