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

Avoid doubly-nested transition record

This commit is contained in:
Tony Garnock-Jones 2013-04-11 17:36:39 -04:00
parent 9033cd307c
commit 3c0603878f
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
new-server.rkt
View File

@ -173,13 +173,13 @@
;;--------------------------------------------------------------------------- ;;---------------------------------------------------------------------------
(define (repl-boot user-name) (define (repl-boot user-name)
(transition/no-state (list
(event-relay 'app-event-relay) (event-relay 'app-event-relay)
(spy 'APP) (spy 'APP)
(at-meta-level (at-meta-level
(endpoint #:subscriber (channel-message (channel-stream-name #t (wild)) (wild)) (endpoint #:subscriber (channel-message (channel-stream-name #t (wild)) (wild))
#:conversation (channel-message (channel-stream-name _ cname) _) #:conversation (channel-message (channel-stream-name _ cname) _)
#:on-presence (spawn #:debug-name cname #:child (repl-instance user-name cname)))))) #:on-presence (spawn #:debug-name cname #:child (repl-instance user-name cname))))))
;; (repl-instance InputPort OutputPort InputPort OutputPort) ;; (repl-instance InputPort OutputPort InputPort OutputPort)
(struct repl-instance-state (c2s-in ;; used by thread to read input from relay (struct repl-instance-state (c2s-in ;; used by thread to read input from relay