Modulinos: Difference between revisions

Content deleted Content added

Inline

@@ Line 655: / Line 655: @@
 let _ =
-  let program = Sys.argv.(0) in
+	let program = Sys.argv.(0)
-  let re = Str.regexp "scriptedmain" in
+	and re = Str.regexp "scriptedmain" in
-  try let _ = Str.search_forward re program 0 in
+		try let _ = Str.search_forward re program 0 in
-    main ()
+			main ()
-  with _ -> ()</lang>
+		with _ -> ()</lang>
 test.ml
@@ Line 678: / Line 678: @@
 let _ =
-  let program = Sys.argv.(0) in
+	let program = Sys.argv.(0)
-  let re = Str.regexp "test" in
+	and re = Str.regexp "test" in
-  try let _ = Str.search_forward re program 0 in
+		try let _ = Str.search_forward re program 0 in
-    main ()
+			main ()
-  with _ -> ()</lang>
+		with _ -> ()</lang>
 =={{header|Octave}}/{{header|MATLAB}}==