[Toss-devel-svn] SF.net SVN: toss:[1548] trunk/Toss/GGP/TranslateGame.ml

[<luk...@us...>]

Revision: 1548
          http://toss.svn.sourceforge.net/toss/?rev=1548&view=rev
Author:   lukstafi
Date:     2011-08-28 23:14:56 +0000 (Sun, 28 Aug 2011)
Log Message:
-----------
GDL translation: command-line translation minor fix.

Modified Paths:
--------------
    trunk/Toss/GGP/TranslateGame.ml

Modified: trunk/Toss/GGP/TranslateGame.ml
===================================================================
--- trunk/Toss/GGP/TranslateGame.ml	2011-08-28 22:05:49 UTC (rev 1547)
+++ trunk/Toss/GGP/TranslateGame.ml	2011-08-28 23:14:56 UTC (rev 1548)
@@ -1734,7 +1734,9 @@
   let tossrule_preconds =
     Aux.StrMap.map (fun rdata->rdata.precond) tossrule_data in
   let playing_as =
-    Aux.array_argfind (fun x -> x = playing_as) players in
+    try
+      Aux.array_argfind (fun x -> x = playing_as) players
+    with Not_found -> 0 in
   (match !generate_test_case with
     | None -> ()
     | Some game_name ->

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.