diff options
author | Damien Doligez <damien.doligez-inria.fr> | 2002-07-23 14:12:03 +0000 |
---|---|---|
committer | Damien Doligez <damien.doligez-inria.fr> | 2002-07-23 14:12:03 +0000 |
commit | 37bf95c248f7f8e9f0f2557224837e530c428e93 (patch) | |
tree | 1fe95869eaf97ba5888bb1f2a7163a4d6770d4f3 /otherlibs/labltk/support/cltkEval.c | |
parent | 30fdb7585514c6557ad38b87f8bfe079c322edc4 (diff) |
detabisation
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5029 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/labltk/support/cltkEval.c')
-rw-r--r-- | otherlibs/labltk/support/cltkEval.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/otherlibs/labltk/support/cltkEval.c b/otherlibs/labltk/support/cltkEval.c index 236dc299a..ae86452f2 100644 --- a/otherlibs/labltk/support/cltkEval.c +++ b/otherlibs/labltk/support/cltkEval.c @@ -203,8 +203,8 @@ CAMLprim value camltk_tcl_direct_eval(value v) Tcl_DStringInit(&buf); Tcl_DStringAppend(&buf, argv[0], -1); for (i=1; i<size; i++) { - Tcl_DStringAppend(&buf, " ", -1); - Tcl_DStringAppend(&buf, argv[i], -1); + Tcl_DStringAppend(&buf, " ", -1); + Tcl_DStringAppend(&buf, argv[i], -1); } result = Tcl_Eval(cltclinterp, Tcl_DStringValue(&buf)); Tcl_DStringFree(&buf); @@ -217,13 +217,13 @@ CAMLprim value camltk_tcl_direct_eval(value v) } else { /* implement the autoload stuff */ if (Tcl_GetCommandInfo(cltclinterp,"unknown",&info)) { /* unknown found */ for (i = size; i >= 0; i--) - argv[i+1] = argv[i]; + argv[i+1] = argv[i]; argv[0] = "unknown"; result = (*info.proc)(info.clientData,cltclinterp,size+1,argv); } else { /* ah, it isn't there at all */ result = TCL_ERROR; Tcl_AppendResult(cltclinterp, "Unknown command \"", - argv[0], "\"", NULL); + argv[0], "\"", NULL); } } |