From 71ce7cb69a350d5d76051a5486ffce9cc969d1ba Mon Sep 17 00:00:00 2001
From: Art Yerkes <ayerkes@speakeasy.net>
Date: Wed, 12 Nov 2003 04:30:09 +0000
Subject: [PATCH] Removed needless C_list.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5303 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 Examples/ocaml/argout_ref/example_prog.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Examples/ocaml/argout_ref/example_prog.ml b/Examples/ocaml/argout_ref/example_prog.ml
index 032caafe3..c6de34597 100644
--- a/Examples/ocaml/argout_ref/example_prog.ml
+++ b/Examples/ocaml/argout_ref/example_prog.ml
@@ -16,7 +16,7 @@ let _ = if Array.length Sys.argv < 3 then
 
 let x = int_of_string Sys.argv.(1)
 let y = int_of_string Sys.argv.(2)
-let (xf,yf) = match _factor (C_list [ C_int x ; C_int y ]) with
+let (xf,yf) = match _factor '((x to int),(y to int)) with
     C_list [ C_int a ; C_int b ] -> a,b
   | _ -> raise BadReturn
 let _ = print_endline