[Scsh-checkins] scsh-0.6/scsh newports.scm

[Mike Sperber <sperber@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh-0.6/scsh
In directory usw-pr-cvs1:/tmp/cvs-serv14420

Modified Files:
        newports.scm 
Log Message:
Make FLUSH-ALL-PORTS blocking so FORK will do something more sensible.

Previously, 

(begin
  (display "ha!") (newline)
  (fork (lambda ()
          'foo)))

would print "ha!" twice because FLUSH-ALL-PORTS would not finish
before the actual FORK.