X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=iterate.tcl;h=f95ece7345977d55d13ee5196c10e587697c8b22;hb=6b280803f0ab95a0bad13f92bb868726f4b085cb;hp=484100357673eba755dc15972d00abc31622b69a;hpb=da0828666321a53b049c8c89934a30b5f31ab698;p=ir-tcl-moved-to-github.git

diff --git a/iterate.tcl b/iterate.tcl
index 4841003..f95ece7 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.5 1996-08-21 11:24:01 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
-
+vwait forever