X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=iterate.tcl;h=91c9b8ab5448098a177df7a57d5932f8f649762d;hb=0c66cddf6e923db676ed30691cd1d47b50db0d4a;hp=484100357673eba755dc15972d00abc31622b69a;hpb=da0828666321a53b049c8c89934a30b5f31ab698;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