[m-rev.] trivial diff: fix bug in opengl maze example

Julien Fischer juliensf at csse.unimelb.edu.au
Thu Nov 27 14:41:52 AEDT 2008


Fix a bug in the OpenGL maze example.

extras/graphics/samples/maze/maze.m:
 	Fix some code that didn't confrom to the current representation of
 	the maze.  (This wasn't caught at compile-time because of the use
 	of dynamic typing in this example.)

Julien.

Index: maze.m
===================================================================
RCS file: /home/mercury/mercury1/repository/mercury/extras/graphics/samples/maze/maze.m,v
retrieving revision 1.7
diff -u -r1.7 maze.m
--- maze.m	30 Mar 2006 02:52:45 -0000	1.7
+++ maze.m	27 Nov 2008 03:38:51 -0000
@@ -157,8 +157,7 @@
  	globals.get("Pos", Pos0, !IO),
  	globals.get("W", w(Visited0, Others0), !IO),
  	Visited    = set.insert(Visited0, Pos0),
-	Nexts      = Maze ^ det_elem(Pos0),
-	AdjSet     = set.list_to_set(Nexts),
+	AdjSet     = Maze ^ det_elem(Pos0),
  	Choices0   = set.difference(AdjSet, Visited),
  	ChoiceList = set.to_sorted_list(Choices0),
  	Others1    = ChoiceList ++ Others0,
--------------------------------------------------------------------------
mercury-reviews mailing list
Post messages to:       mercury-reviews at csse.unimelb.edu.au
Administrative Queries: owner-mercury-reviews at csse.unimelb.edu.au
Subscriptions:          mercury-reviews-request at csse.unimelb.edu.au
--------------------------------------------------------------------------



More information about the reviews mailing list