projects
/
ir-tcl-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix.
[ir-tcl-moved-to-github.git]
/
iterate.tcl
diff --git
a/iterate.tcl
b/iterate.tcl
index
4841003
..
91c9b8a
100644
(file)
--- 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 ...
#
# Small test script which searches for science ...
+proc fail-back {} {
+ puts "Fail"
+}
+
proc connect-response {} {
z callback {init-response}
ir-set z.1 z
proc connect-response {} {
z callback {init-response}
ir-set z.1 z
@@
-41,7
+45,8
@@
proc present-response {} {
}
ir z
}
ir z
+z failback {fail-back}
z databaseNames dummy
z callback {connect-response}
z databaseNames dummy
z callback {connect-response}
-z connect localhost:9999
+z connect localhost:210