original commit: ecb86a02b755e737e1268683b65f7b74c6cfe9d9
This commit is contained in:
Robby Findler 1998-11-03 22:43:10 +00:00
parent 1c935b93fc
commit a6edd9b5e9
2 changed files with 5 additions and 1 deletions

View File

@ -10,3 +10,4 @@
[C : mzlib:core^ ((require-library "corer.ss"))]
[F : framework^ ((require-library "frameworkr.ss" "framework") C M)])
(export)))
'done

View File

@ -1,5 +1,8 @@
(thread
(letrec ([restart
(letrec ([namespace (make-namespace)]
[_ (parameterize ([current-namespace namespace])
(require-library "pconvert.ss"))]
[restart
(lambda ()
(let*-values ([(in out) (tcp-connect "localhost" (load-relative "receive-sexps-port.ss"))]
[(continue) (make-semaphore 0)]