Last minute fixes for 0.5.2

RELEASE

@@ -77,20 +77,21 @@ a byte-code-interpreter Scheme implementation. The Scheme 48 virtual machine
 can be compiled on any system with a C compiler; the rest of Scheme 48 is
 machine-independent across 32-bit processors. Scsh's OS interface is
 also quite portable, providing a consistent interface across different
-Unix platforms. We currently have scsh implementations for
+Unix platforms. We currently have scsh implementations for:
-    AIX,
+    AIX
-    BSD/OS,
+    BSD/OS
-    CXUX,
+    CXUX
-    FreeBSD,
+    FreeBSD
-    HP-UX,
+    HP-UX
-    IRIX,
+    IRIX
-    Linux,
+    Linux
-    NetBSD,
+    NetBSD
-    NeXTStep,
+    NeXTStep
-    Solaris,
+    Solaris
-    SunOS,
+    SunOS
     Ultrix
-[Brian- can you edit this list]
+    Win32
+	
 Scsh code should run without change across these systems.
 Porting to new platforms is usually not difficult.
 
@@ -210,39 +211,46 @@ Underground everywhere for bug reports, bug fixes, design review and comments
 that were incorporated into this release. We really appreciate their help,
 particularly in the task of porting scsh to new platforms.
 
-[Brian- will you add your set of names to this list?]
+	Alan Bawden
-Alan Bawden, 
+	Jim Blandy
-Jim Blandy, 
+	Per Bothner
-Per Bothner, 
+	Tom Breton
-Tom Breton, 
+	Christopher Browne
-Christopher Browne, 
+	Sean Doran
-Ray Dillinger, 
+	Ray Dillinger
-Allyn Dimock, 
+	Allyn Dimock
-Scott Draves, 
+	Scott Draves
-Lutz Euler, 
+	Lutz Euler
-Jeremy Fitzhardinge, 
+	Kevin Esler
-Noah Friedman, 
+	Jeremy Fitzhardinge
-Martin Gasbichler, 
+	Noah Friedman
-Andy Gaynor, 
+	Martin Gasbichler
-Ian Grant, 
+	Andy Gaynor
-Eric Hanchrow, 
+	Ian Grant
-Karl Hegbloom,
+	Eric Hanchrow
-Ian Horswill & the Northwestern Scheme wizards
+	Karl Hegbloom
-Graham Hughes, 
+	Johann Hibschman
-Lars Kellogg-Stedman, 
+	Ian Horswill & the Northwestern Scheme wizards
-Andre Koehoerst, 
+	Gary Houston
-Shriram Krishnamurthi, 
+	Graham Hughes
-Jakob Lichtenberg, 
+	Jarmo Hurri
-Eric Marsden, 
+	Lars Kellogg-Stedman
-Willliam Pippin, 
+	Andre Koehoerst
-David Rush, 
+	Shriram Krishnamurthi
-Michael Schinz, 
+	Jakob Lichtenberg
-Manuel Serrano, 
+	Eric Marsden
-Mark Shirley
+	Peter C. Olsen
-Bill Somerfeld, 
+	Willliam Pippin
-Mike Sperber, 
+	David Rush
-Harvey J. Stein, 
+	Michael Schinz
-Pawel Turnau, 
+	Manuel Serrano
+	Mark Shirle
+	Bill Somerfeld
+	Mike Sperber
+	Harvey J. Stein
+	Pawel Turnau
+	Rob Warnock
+	Kenneth R. Westerback
 
 We'd like to thank everyone else for their patience; this release seemed like
 a long time coming.

scsh/irix/signals.scm

@@ -20,28 +20,28 @@
   (pipe	13)	; write on a pipe with no one to read it 
   (alrm	14)	; alarm clock 
   (term	15)	; software termination signal from kill 
-  (stop	20)	; sendable stop signal not from tty 
+  (stop 23)     ; sendable stop signal not from tty
-  (tstp	21)	; stop signal from tty 
+  (tstp 24)     ; stop signal from tty
-  (cont	28)	; continue a stopped process 
+  (cont 25)     ; continue a stopped process
   (chld	18)	; to parent on child stop or exit 
   (cld	18)	; compat
-  (ttin	29)	; to readers pgrp upon background tty read 
+  (ttin 26)     ; to readers pgrp upon background tty read
-  (ttou	30)	; like TTIN for output if (tp->t_local&LTOSTOP) 
+  (ttou 27)     ; like TTIN for output if (tp->t_local&LTOSTOP)
   ;; User defined
   (usr1 16)	; user defined signal 1 
   (usr2 17)	; user defined signal 2 
 
   (pwr  19)	; power-fail restart
   (poll 22)	; pollable event occurred
-  (io	23)	; input/output possible signal
+  (io   22)     ; input/output possible signal
-  (urg	24)	; urgent condition on io channel
+  (urg  21)     ; urgent condition on io channel
-  (winch 25)	; window size changes
+  (winch 20)    ; window size changes
-  (vtalrm 26)	; virtual time alarm
+  (vtalrm 28)   ; virtual time alarm
-  (prof	27)	; profiling alarm
+  (prof 29)     ; profiling alarm
-  (xcpu	31)	; Cpu time limit exceeded
+  (xcpu 30)     ; Cpu time limit exceeded
-  (xfsz	32)	; Filesize limit exceeded
+  (xfsz 31)     ; Filesize limit exceeded
   )
 
 (define signals-ignored-by-default
   (list signal/chld signal/cont				 ; These are Posix.
-	signal/pwr signal/poll signal/urg signal/winch)) ; These are Irix.
+	signal/pwr signal/urg signal/winch)) ; These are Irix.

scsh/network.scm

@@ -48,8 +48,18 @@
 		     (else 
 		      (error "socket-connect: unsupported protocol-family ~s"
 			     protocol-family)))))
-    (connect-socket sock addr)
+    ;; Close the socket and free the file-descriptors
-    sock))
+    ;; if the connect fails:
+    (let ((connected #f))
+      (dynamic-wind
+       (lambda () #f)
+       (lambda () (connect-socket sock addr) (set! connected #t))
+       (lambda ()
+         (if (not connected)
+             (close-socket sock))))
+      (if connected
+          sock
+          #f))))
 
 (define (bind-listen-accept-loop protocol-family proc arg)
   (let* ((sock (create-socket protocol-family socket-type/stream))