suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

...

Browse Source 
original commit: 174863d28b9cd14141603df73aee0334ffd7c2b0
This commit is contained in:
John Clements 2001-10-30 05:46:44 +00:00
parent d3e4d22472
commit 9e9b309c56
3 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/process.ss
View File

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

3
collects/net/dns-unit.ss
View File

@ -285,7 +285,8 @@
(define (dns-find-nameserver) (define (dns-find-nameserver)
(case (system-type) (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" (with-input-from-file "/etc/resolv.conf"
(lambda () (lambda ()
(let loop () (let loop ()

3
collects/net/url-sig.ss
View File

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