|
Lines 27-33
Link Here
|
| 27 |
(define (call-with-repl-server proc) |
27 |
(define (call-with-repl-server proc) |
| 28 |
"Set up a REPL server in a separate process and call PROC with a |
28 |
"Set up a REPL server in a separate process and call PROC with a |
| 29 |
socket connected to that server." |
29 |
socket connected to that server." |
| 30 |
(let ((sockaddr (make-socket-address AF_UNIX "/tmp/repl-server")) |
30 |
(let ((sockaddr (make-test-socket-address)) |
| 31 |
(client-socket (socket AF_UNIX SOCK_STREAM 0))) |
31 |
(client-socket (socket AF_UNIX SOCK_STREAM 0))) |
| 32 |
(false-if-exception |
32 |
(false-if-exception |
| 33 |
(delete-file (sockaddr:path sockaddr))) |
33 |
(delete-file (sockaddr:path sockaddr))) |
|
Lines 86-91
Link Here
|
| 86 |
(lambda (client-socket) |
86 |
(lambda (client-socket) |
| 87 |
body ...))) |
87 |
body ...))) |
| 88 |
|
88 |
|
|
|
89 |
(define (make-test-socket-address) |
| 90 |
(catch 'unbound-variable |
| 91 |
(lambda () |
| 92 |
(make-socket-address AF_UNIX "/tmp/repl-server")) |
| 93 |
(lambda (key . args) |
| 94 |
(throw 'unresolved)))) |
| 95 |
|
| 89 |
(define (read-until-prompt port str) |
96 |
(define (read-until-prompt port str) |
| 90 |
"Read from PORT until STR has been read or the end-of-file was |
97 |
"Read from PORT until STR has been read or the end-of-file was |
| 91 |
reached." |
98 |
reached." |
