syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Avoid incorrect use of ?; replace with _

This commit is contained in:
Tony Garnock-Jones 2015-12-11 20:22:36 +13:00
parent 91c2d6a3c7
commit 30d46a2019
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
prospect/examples/actor/chat.rkt
View File

@ -19,14 +19,14 @@
(define user (gensym 'user))
(send-to-remote "Welcome, ~a.\n" user)
(until (retracted (advertise (tcp-channel them us ?)) #:meta-level 1)
(until (retracted (advertise (tcp-channel them us _)) #:meta-level 1)
(assert (present user))
(on (asserted (present $who)) (say who "arrived."))
(on (retracted (present $who)) (say who "departed."))
(on (message (says $who $what)) (say who "says: ~a" what))
(assert (advertise (tcp-channel us them ?)) #:meta-level 1)
(assert (advertise (tcp-channel us them _)) #:meta-level 1)
(on (message (tcp-channel them us $bs) #:meta-level 1)
(send! (says user (string-trim (bytes->string/utf-8 bs))))))))
@ -36,6 +36,6 @@
(%%boot
(lambda ()
(actor (define us (tcp-listener 5000))
(forever (assert (advertise (observe (tcp-channel ? us ?))) #:meta-level 1)
(on (asserted (advertise (tcp-channel $them us ?)) #:meta-level 1)
(forever (assert (advertise (observe (tcp-channel _ us _))) #:meta-level 1)
(on (asserted (advertise (tcp-channel $them us _)) #:meta-level 1)
(spawn-session them us)))))))