swigp4-ify.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5236 626c5289-ae23-0410-ae9c-e8d60b6d4f22

1 files changed, 3 insertions, 3 deletions

diff --git a/Examples/ocaml/std_string/runme.ml b/Examples/ocaml/std_string/runme.ml
index f178b9bc2..8b50fbb7b 100644
--- a/Examples/ocaml/std_string/runme.ml
+++ b/Examples/ocaml/std_string/runme.ml
@@ -13,10 +13,10 @@ let _ =
     print_newline () ;
     
     print_string "the new string contains " ;
-    print_int (get_int ((invoke z) "size" C_void)) ;
+    print_int (z -> size () as int) ;
     print_string " : [ " ;
-    for i = 0 to pred (get_int ((invoke z) "size" C_void)) do
-      print_int (get_int ((invoke z) "[]" (C_int i))) ;
+    for i = 0 to (pred ((z -> size ()) as int)) do
+      print_int ((z '[i to int]) as int) ;
       print_string "; " ;
     done ;
     print_string "]" ;