[m-rev.] trivial diff: avoid calling a deprecated function

[Julien Fischer]

Estimated hours taken: 0
Branches: main

Avoid calling a deprecated function.

extras/lex/lex.lexeme.m:
 	Call bitmap.bit/2 in place of the now deprecated bitmap.get/2.

Julien.

Index: lex.lexeme.m
===================================================================
RCS file: /home/mercury/mercury1/repository/mercury/extras/lex/lex.lexeme.m,v
retrieving revision 1.3
diff -u -r1.3 lex.lexeme.m
--- lex.lexeme.m	3 Dec 2002 04:48:32 -0000	1.3
+++ lex.lexeme.m	4 Jun 2007 07:56:41 -0000
@@ -170,7 +170,7 @@
      Rows            = CLXM ^ transition_map ^ rows,
      AcceptingStates = CLXM ^ transition_map ^ accepting_states,
      find_next_state(char__to_int(Char), Rows ^ elem(CurrentState), NextState),
-    IsAccepting     = bitmap__get(AcceptingStates, NextState).
+    IsAccepting = AcceptingStates ^ bit(NextState).

  %-----------------------------------------------------------------------------%


--------------------------------------------------------------------------
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
--------------------------------------------------------------------------