[m-rev.] diff: fix ilc compilation errors

[Fergus Henderson]

Estimated hours taken: 0.5
Branches: main

library/table_builtin.m:
	Fix a compile error in grade ilc that was introduced by
	zs's recent change: define stub Mercury versions of the
	table_io_*_bracket_unitized_goal procedures.

Workspace: /c/fjh/ws/2/mercury
Index: library/table_builtin.m
===================================================================
RCS file: /home/mercury1/repository/mercury/library/table_builtin.m,v
retrieving revision 1.22
diff -u -d -r1.22 table_builtin.m
--- library/table_builtin.m	12 Sep 2002 10:00:51 -0000	1.22
+++ library/table_builtin.m	16 Oct 2002 19:08:13 -0000
@@ -612,6 +612,18 @@
 	% matching foreign_proc version.
 	private_builtin__sorry("table_io_copy_io_state").
 
+table_io_left_bracket_unitized_goal(_TraceEnabled) :-
+	% This version is only used for back-ends for which there is no
+	% matching foreign_proc version.
+	impure private_builtin__imp,
+	private_builtin__sorry("table_io_left_bracket_unitized_goal").
+
+table_io_right_bracket_unitized_goal(_TraceEnabled) :-
+	% This version is only used for back-ends for which there is no
+	% matching foreign_proc version.
+	impure private_builtin__imp,
+	private_builtin__sorry("table_io_right_bracket_unitized_goal").
+
 %-----------------------------------------------------------------------------%
 
 :- interface.
--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------