                                            :text "> ")
           area (scrollable text-area)
           listener-thread (Thread. (fn []  
-                                     (loop []
+                                     (loop [] ;; should probably at least check something for a termination condition
                                        (let [resp (nrepl.transport/recv (:client @repl) 20)]
                                          (when resp
                                            (when (:out resp) (write-stdout-repl (:out resp)))

                         :items [[#_(:scroll-pane (get-editor))
                                  (left-right-split
                                    (:scrollable @project-browser)
                                    (:scroll-pane (get-editor))
                                    :divider-location 0.2) "wrap, span 2, w 100%, h 75%"]                                 
                                 [(:scroll-pane @repl-input-window) "w 50%, h 25%"]
                                 [(:scrollable @repl-output-window) "w 50%, h 25%"]]

        r-is System/in #_(java.io.ByteArrayInputStream.
                          #_(.getBytes "(println 'foobar)\nexit\n(println 'foobar)\n"))
        r-os (java.io.ByteArrayOutputStream.)
        project (project/read (str (:current-project @current-profile) File/separator "project.clj"))
        #_(project/read project-filename)
        #_(assoc (project/read (str (:current-project @current-profile) "/project.clj") #_project-filename)
                :repl-options {:input-stream r-is :output-stream r-os})
