syndicate-lang
/
racket-ssh-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Prepare for contracting of process state.

This commit is contained in:
Tony Garnock-Jones 2012-06-23 07:56:00 -04:00
parent e6c867ab7f
commit 4c15331a07
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
new-server.rkt
View File

@ -3,6 +3,7 @@
(require racket/set) (require racket/set)
(require racket/match) (require racket/match)
(require racket/contract)
(require "ssh-numbers.rkt") (require "ssh-numbers.rkt")
(require "ssh-transport.rkt") (require "ssh-transport.rkt")
@ -21,7 +22,7 @@
;; PAPER NOTE: remove #:debug-name for presentation economy ;; PAPER NOTE: remove #:debug-name for presentation economy
(spawn tcp-driver #:debug-name 'tcp-driver) (spawn tcp-driver #:debug-name 'tcp-driver)
(spawn tcp-spy #:debug-name 'tcp-spy) (spawn tcp-spy #:debug-name 'tcp-spy)
(spawn listener)))) (spawn listener #:debug-name 'ssh-tcp-listener))))
(define listener (define listener
(transition 'no-state (transition 'no-state