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

...

Browse Source 
original commit: 05972f6cc305a5022e6514e47a2eee4aaf947ae5
This commit is contained in:
Robby Findler 1998-11-02 18:24:24 +00:00
parent 51fece2bc9
commit 2924bf0d2d
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/tests/framework/framework-test-engine.ss
View File

@ -1,21 +1,20 @@
(printf "creating thread~n")
(printf "mred:creating thread~n")
(thread
(letrec ([restart
(lambda ()
(printf "initializing loop~n")
(let*-values ([(listener) (tcp-listen (require-library "receive-sexps-port.ss" "tests" "framework"))]
[(in out) (tcp-accept listener)]
(printf "mred:initializing loop~n")
(let*-values ([(in out) (tcp-connect "localhost" (load-relative "receive-sexps-port.ss"))]
[(continue) (make-semaphore 0)]
[(error) #f]
[(answer) (void)])
(printf "mred:made connection~n")
(let loop ()
(let ([sexp (read in)])
(if (eof-object? sexp)
(begin
(close-input-port in)
(close-output-port out)
(tcp-close listener)
(restart))
(exit))
(begin
(queue-callback (lambda ()
(set! error #f)