...

original commit: 174863d28b9cd14141603df73aee0334ffd7c2b0

collects/mzlib/process.ss

@@ -13,7 +13,7 @@
 
   (define (shell-path/args who argstr)
     (case (system-type)
-      ((unix) (append '("/bin/sh" "-c") (list argstr)))
+      ((unix macosx) (append '("/bin/sh" "-c") (list argstr)))
       ((windows) (let ([cmd 		  
 			(let ([d (find-system-path 'sys-dir)])
 			  (let ([cmd (build-path d "cmd.exe")])

collects/net/dns-unit.ss

@@ -285,7 +285,8 @@
 
       (define (dns-find-nameserver)
 	(case (system-type)
-	  [(unix) (with-handlers ([void (lambda (x) #f)])
+	  [(unix macosx) 
+	   (with-handlers ([void (lambda (x) #f)])
 	      (with-input-from-file "/etc/resolv.conf"
 		(lambda ()
 		  (let loop ()

collects/net/url-sig.ss

@@ -14,4 +14,5 @@
      call/input-url			;; url x (url -> in-port) x
 					;; (in-port -> T)
 					;; [x list (str)] -> T
-     combine-url/relative)))		;; url x str -> url
+     combine-url/relative		;; url x str -> url
+     url-exception?)))                  ;; T -> boolean