Permit extraction of current flows from a handle
This commit is contained in:
parent
1c008cd42d
commit
beddc9d099
|
@ -129,6 +129,9 @@
|
||||||
(lambda (v)
|
(lambda (v)
|
||||||
(set! names (set-remove names cname))))))
|
(set! names (set-remove names cname))))))
|
||||||
|
|
||||||
|
(define/public (current-flows)
|
||||||
|
flows)
|
||||||
|
|
||||||
(define/public (retract! name)
|
(define/public (retract! name)
|
||||||
(sync (retract!-evt name)))
|
(sync (retract!-evt name)))
|
||||||
|
|
||||||
|
|
|
@ -4,6 +4,7 @@
|
||||||
(require racket/port)
|
(require racket/port)
|
||||||
(require racket/class)
|
(require racket/class)
|
||||||
(require racket/match)
|
(require racket/match)
|
||||||
|
(require racket/pretty)
|
||||||
|
|
||||||
(require "conversation.rkt")
|
(require "conversation.rkt")
|
||||||
(require "standard-thread.rkt")
|
(require "standard-thread.rkt")
|
||||||
|
@ -40,6 +41,7 @@
|
||||||
(send handle assert! talk-topic)
|
(send handle assert! talk-topic)
|
||||||
(send handle assert! listen-topic)
|
(send handle assert! listen-topic)
|
||||||
(let loop ()
|
(let loop ()
|
||||||
|
;;(pretty-print (send handle current-flows))
|
||||||
(display name o)
|
(display name o)
|
||||||
(display "@ROOM>> " o)
|
(display "@ROOM>> " o)
|
||||||
(flush-output o)
|
(flush-output o)
|
||||||
|
|
Loading…
Reference in New Issue