From e5036f6453202dd1944e7109ab7a3d5e7e9eea5c Mon Sep 17 00:00:00 2001 From: Sebastian Hammer Date: Mon, 29 May 1995 09:15:11 +0000 Subject: [PATCH] Changed CS_SR to PROTO_SR, etc. --- ir-tcl.c | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/ir-tcl.c b/ir-tcl.c index aac5e4d..bf3f75c 100644 --- a/ir-tcl.c +++ b/ir-tcl.c @@ -5,7 +5,10 @@ * Sebastian Hammer, Adam Dickmeiss * * $Log: ir-tcl.c,v $ - * Revision 1.32 1995-05-29 08:44:16 adam + * Revision 1.33 1995-05-29 09:15:11 quinn + * Changed CS_SR to PROTO_SR, etc. + * + * Revision 1.32 1995/05/29 08:44:16 adam * Work on delete of objects. * * Revision 1.31 1995/05/26 11:44:10 adam @@ -759,7 +762,7 @@ static int do_connect (void *obj, Tcl_Interp *interp, void *addr; IRObj *p = obj; int r; - int protocol_type = CS_Z3950; + int protocol_type = PROTO_Z3950; if (argc <= 0) return TCL_OK; @@ -771,9 +774,9 @@ static int do_connect (void *obj, Tcl_Interp *interp, return TCL_ERROR; } if (!strcmp (p->protocol_type, "Z3950")) - protocol_type = CS_Z3950; + protocol_type = PROTO_Z3950; else if (!strcmp (p->protocol_type, "SR")) - protocol_type = CS_SR; + protocol_type = PROTO_SR; else { interp->result = "bad protocol type"; -- 1.7.10.4