[m-rev.] trivial diff: add dummy erlang defns for backjumping primitives

[Julien Fischer]

Fix another problem compiling the standard library in the erlang
grade.

library/backjump.m:
 	Add dummy Erlang definitions of builtin_choice_id/1 and
 	builtin_backjump/1.

Julien.

Index: backjump.m
===================================================================
RCS file: /home/mercury/mercury1/repository/mercury/library/backjump.m,v
retrieving revision 1.4
diff -u -r1.4 backjump.m
--- backjump.m	22 Apr 2009 03:03:16 -0000	1.4
+++ backjump.m	2 Jun 2009 08:29:02 -0000
@@ -444,6 +444,17 @@

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

+:- pragma foreign_code("Erlang", "
+
+    builtin_choice_id_1_p_0(_) ->
+        throw(""builtin_choice_id/1 NYI for Erlang backend"").
+ 
+    builtin_backjump_1_p_0(_) ->
+        throw(""builtin_backjump/1 NYI for Erlang backend"").
+").
+
+%-----------------------------------------------------------------------------%
+
  :- pragma foreign_export("C", report_invalid_backjump(in, di, uo),
      "ML_report_invalid_backjump").


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