Rob Browning's process control patch.

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@3904 57a11ea4-9604-0410-9ed3-97b8803252fd

ChangeLog

@@ -1,3 +1,8 @@
+2001-04-06  Rob Browning  <rlb@cs.utexas.edu>
+
+	* src/scm/process.scm (gnc:run-sub-process): some process control
+	fixes seen on guile-devel.	
+
 2001-04-06  Dave Peticolas  <dave@krondo.com>
 
 	* src/gnome/dialog-price-editor.c: new file with price db

src/scm/c-interface.scm

@@ -45,7 +45,7 @@
 (define _ gnc:gettext)
 (define-syntax N_
   (syntax-rules ()
-                ((_ x) x)))
+    ((_ x) x)))
 
 
 ;; This database can be used to store and retrieve translatable

src/scm/process.scm

@@ -61,8 +61,10 @@
                 ;; set standard-input and standard-output at the fd
                 ;; level -- which is really all that matters since
                 ;; we're about to exec...
-                (close-input-port parent-read-pipe)
-                (close-output-port parent-write-pipe)
+                (set-batch-mode?! #t)
+                (close-all-ports-except child-read-pipe child-write-pipe)
+                ;;(close-input-port parent-read-pipe)
+                ;;(close-output-port parent-write-pipe)
                 (dup->fdes child-read-pipe 0)
                 (dup->fdes child-write-pipe 1)
                 ;; now launch the child process.