summaryrefslogtreecommitdiffstats
path: root/otherlibs/labltk/builtin
diff options
context:
space:
mode:
authorJacques Garrigue <garrigue at math.nagoya-u.ac.jp>1999-12-01 09:31:59 +0000
committerJacques Garrigue <garrigue at math.nagoya-u.ac.jp>1999-12-01 09:31:59 +0000
commit905267fe2cec4625651507db7539493504789d05 (patch)
treeff1267bc4ee35ed4f6b8cc5bd01f6e1d2340c45a /otherlibs/labltk/builtin
parentb9926a88bab922f6f095b838444e29094aef9b34 (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.ml4
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)))