diff options
author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 1999-12-01 09:31:59 +0000 |
---|---|---|
committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 1999-12-01 09:31:59 +0000 |
commit | 905267fe2cec4625651507db7539493504789d05 (patch) | |
tree | ff1267bc4ee35ed4f6b8cc5bd01f6e1d2340c45a /otherlibs/labltk/builtin | |
parent | b9926a88bab922f6f095b838444e29094aef9b34 (diff) |
changed some labels
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2659 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/labltk/builtin')
-rw-r--r-- | otherlibs/labltk/builtin/builtini_index.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/otherlibs/labltk/builtin/builtini_index.ml b/otherlibs/labltk/builtin/builtini_index.ml index cd2dc9c0b..30f6a4f34 100644 --- a/otherlibs/labltk/builtin/builtini_index.ml +++ b/otherlibs/labltk/builtin/builtini_index.ml @@ -29,7 +29,7 @@ let cCAMLtoTKtext_index = (cCAMLtoTKindex : text_index -> tkArgs) let cTKtoCAMLindex s = try - let p = String.index elt:'.' s in + let p = String.index char:'.' s in `Linechar (int_of_string (String.sub s pos:0 len:p), int_of_string (String.sub s pos:(p+1) len:(String.length s - p - 1))) @@ -40,7 +40,7 @@ let cTKtoCAMLindex s = let cTKtoCAMLtext_index s = try - let p = String.index elt:'.' s in + let p = String.index char:'.' s in `Linechar (int_of_string (String.sub s pos:0 len:p), int_of_string (String.sub s pos:(p+1) len:(String.length s - p - 1))) |