Commit f7d6414d authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Undo 824c0f0d from Feb 22, and leave a comment why the thing is working.

parent cce6e8ae
Loading
Loading
Loading
Loading
+1 −3
Original line number Diff line number Diff line
@@ -738,8 +738,6 @@ It returns a process-info plist with possible keys:
             (if (os-unix-p) (cons "exec" command) command)))))

  (defun %redirected-system-command (command in out err directory) ;; helper for %USE-SYSTEM
    (when (and directory (not (os-unix-p)))
      (error "Can't change directory in run-program on non-Unix systems with system() backend"))
    (flet ((redirect (spec operator)
             (let ((pathname
                     (typecase spec
@@ -760,7 +758,7 @@ It returns a process-info plist with possible keys:
        (reduce/strcat
         (append
          before (redirect in " <") (redirect out " >") (redirect err " 2>")
          (when (and directory (os-unix-p))
          (when (and directory (os-unix-p)) ;; NB: unless on Unix, %system uses with-current-directory
            `(" ; cd " ,(escape-shell-token (native-namestring directory))))
          after)))))