From a44b7ba3e2d6d58fddfded48fe04367dcdd30d66 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Wed, 4 Jul 2012 16:36:30 -0400
Subject: [PATCH] I've decided to rename "virtual" flows to "monitor" flows.

---
 new-server.rkt  | 14 +++++++-------
 ssh-session.rkt |  6 +++---
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/new-server.rkt b/new-server.rkt
index 2349b52..ff8a9b4 100644
--- a/new-server.rkt
+++ b/new-server.rkt
@@ -27,7 +27,7 @@
 (define listener
   (transition 'no-state
     (role 'connection-waiter (topic-subscriber (tcp-channel (wild) server-addr (wild))
-					       #:virtual? #t)
+					       #:monitor? #t)
       #:state state
       #:topic t
       #:on-presence (match t
@@ -38,7 +38,7 @@
 		      ;; PAPER NOTE: This second clause can be replaced with
 		      ;; [_ state] for presentation economy
 		      [(topic 'publisher (tcp-channel remote-addr (== server-addr) _) #t)
-		       ;; Ignore virtual flows. They just mean there's
+		       ;; Ignore monitor flows. They just mean there's
 		       ;; someone willing to supply connections to us
 		       ;; at some point in the future.
 		       state]))))
@@ -58,8 +58,8 @@
 
 (define (repl-boot self-pid)
   (transition 'no-repl-state
-    (role 'spy (or (topic-subscriber (wild) #:virtual? #t)
-		   (topic-publisher (wild) #:virtual? #t))
+    (role 'spy (or (topic-subscriber (wild) #:monitor? #t)
+		   (topic-publisher (wild) #:monitor? #t))
       #:state state
       [message
        (write `(APP ,message))
@@ -72,7 +72,7 @@
        #:state state
        #:topic t
        #:on-presence
-       (if (topic-virtual? t)
+       (if (topic-monitor? t)
 	   state
 	   (match t
 	     [(topic _ (channel-message (channel-stream-name _ cname) _) _)
@@ -134,8 +134,8 @@
 					 (bytes-append #"Unknown channel type " type))))))]))
 
 (define (spy marker)
-  (role 'spy (or (topic-subscriber (wild) #:virtual? #t)
-		 (topic-publisher (wild) #:virtual? #t))
+  (role 'spy (or (topic-subscriber (wild) #:monitor? #t)
+		 (topic-publisher (wild) #:monitor? #t))
     #:state state
     [message
      (write `(,marker ,message))
diff --git a/ssh-session.rkt b/ssh-session.rkt
index b0cf0f3..d566551 100644
--- a/ssh-session.rkt
+++ b/ssh-session.rkt
@@ -681,14 +681,14 @@
     ;; remote peer by virtue of our installation of the handler for
     ;; SSH_MSG_CHANNEL_OPEN above.
     (role 'channel-connector
-	(set (topic-publisher arbitrary-locally-originated-traffic #:virtual? #t)
-	     (topic-subscriber arbitrary-locally-originated-traffic #:virtual? #t))
+	(set (topic-publisher arbitrary-locally-originated-traffic #:monitor? #t)
+	     (topic-subscriber arbitrary-locally-originated-traffic #:monitor? #t))
       #:state conn
       #:topic t
       #:on-presence
       (match t
 	[(topic _ _ #t)
-	 ;; Virtual topics appearing indicate receptivity to incoming
+	 ;; Monitor topics appearing indicate receptivity to incoming
 	 ;; channels, and are nothing to do with outgoing channels.
 	 conn]
 	[(or (topic 'publisher (channel-message (channel-stream-name #f cname) _) #f)