From 3c0603878f552281936a96bc2c3ca553b3019bf0 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Thu, 11 Apr 2013 17:36:39 -0400
Subject: [PATCH] Avoid doubly-nested transition record

---
 new-server.rkt | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

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