X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=iterate.tcl;fp=iterate.tcl;h=91c9b8ab5448098a177df7a57d5932f8f649762d;hb=6ddbb3991cc5ad6089410078695f574b2bd8388e;hp=484100357673eba755dc15972d00abc31622b69a;hpb=8caa5a124f21ce80bd6a4a02576bf00d38096d32;p=ir-tcl-moved-to-github.git

diff --git a/iterate.tcl b/iterate.tcl
index 4841003..91c9b8a 100644
--- a/iterate.tcl
+++ b/iterate.tcl
@@ -1,6 +1,10 @@
-# $Id: iterate.tcl,v 1.3 1995-06-26 10:26:16 adam Exp $
+# $Id: iterate.tcl,v 1.4 1995-08-04 11:32:40 adam Exp $
 #
 # Small test script which searches for science ...
+proc fail-back {} {
+    puts "Fail"
+}
+
 proc connect-response {} {
     z callback {init-response}
     ir-set z.1 z
@@ -41,7 +45,8 @@ proc present-response {} {
 }
 
 ir z
+z failback {fail-back}
 z databaseNames dummy
 z callback {connect-response}
-z connect localhost:9999
+z connect localhost:210