From 22a829cb1907c79bfe68ad91314a1dddbf1beeb3 Mon Sep 17 00:00:00 2001
From: Miller Puckette <millerpuckette@users.sourceforge.net>
Date: Tue, 1 Sep 2009 18:22:23 +0000
Subject: merge in HC's new tcl code and start taking patches

svn path=/trunk/; revision=12166
---
 pd/tcl/pd_connect.tcl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'pd/tcl/pd_connect.tcl')

diff --git a/pd/tcl/pd_connect.tcl b/pd/tcl/pd_connect.tcl
index 6d900068..cdd3d91d 100644
--- a/pd/tcl/pd_connect.tcl
+++ b/pd/tcl/pd_connect.tcl
@@ -9,6 +9,8 @@ namespace eval ::pd_connect:: {
     namespace export pdsend
 }
 
+# TODO figure out how to escape { } properly
+
 proc ::pd_connect::configure_socket {sock} {
     fconfigure $sock -blocking 0 -buffering line -encoding utf-8;
     fileevent $sock readable {::pd_connect::pd_readsocket ""}
@@ -65,7 +67,7 @@ proc ::pd_connect::pd_readsocket {cmd_from_pd} {
     } 
     append cmd_from_pd [read $pd_socket]
     while {![info complete $cmd_from_pd] || \
-        [string index $cmd_from_pd end] != "\n"} {
+        [string index $cmd_from_pd end] ne "\n"} {
         append cmd_from_pd [read $pd_socket]
         if {[eof $pd_socket]} {
         close $pd_socket
-- 
cgit v1.2.1