diff: samples/c_interface

[Simon Taylor]

Estimated hours taken: 0.1

samples/c_calls_mercury/c_main_int.m:
	Fix an old-style `:- pragma c_code' declaration.

samples/c_calls_mercury/mercury_lib.m:
	Add a missing import.


Index: c_main_int.m
===================================================================
RCS file: /home/staff/zs/imp/mercury/samples/c_interface/c_calls_mercury/c_main_int.m,v
retrieving revision 1.2
diff -u -u -r1.2 c_main_int.m
--- c_main_int.m	1997/09/10 11:00:55	1.2
+++ c_main_int.m	1999/03/22 03:33:50
@@ -25,4 +25,5 @@
 
 	% Define the Mercury predicate c_main to call the C function
 	% c_main.
-:- pragma c_code(recursive, c_main(IO0::di, IO::uo), "c_main(); IO = IO0;").
+:- pragma c_code(c_main(IO0::di, IO::uo), [may_call_mercury],
+		"c_main(); IO = IO0;").
Index: mercury_lib.m
===================================================================
RCS file: /home/staff/zs/imp/mercury/samples/c_interface/c_calls_mercury/mercury_lib.m,v
retrieving revision 1.3
diff -u -u -r1.3 mercury_lib.m
--- mercury_lib.m	1997/09/10 11:00:56	1.3
+++ mercury_lib.m	1999/03/22 03:37:15
@@ -21,7 +21,7 @@
 
 %-----------------------------------------------------------------------------%
 :- implementation.
-:- import_module std_util, int.
+:- import_module list, std_util, int.
 
 % well, this is just a silly example...
 foo(42).