diff: string.nu.nl string__unsafe_index

[Fergus Henderson]

Hi Tom,

When adding string__unsafe_index/3, you forgot to add a Prolog version.

library/string.nu.nl:
	Add a Prolog definition for string__unsafe_index/3, which
	is defined using `pragma c_code' in string.m.

Index: string.nu.nl
===================================================================
RCS file: /home/staff/zs/imp/mercury/library/string.nu.nl,v
retrieving revision 1.14
diff -u -r1.14 string.nu.nl
--- string.nu.nl	1997/01/20 03:32:55	1.14
+++ string.nu.nl	1997/07/12 13:41:56
@@ -36,6 +36,9 @@
 	list__index0(String, Int, Code),
 	char__to_int(Char, Code).
 
+string__unsafe_index(String, Int, Char) :-
+	string__index(String, Int, Char).
+
 %-----------------------------------------------------------------------------%
 
 string__append(A, B, C) :-

-- 
Fergus Henderson <fjh at cs.mu.oz.au>   |  "I have always known that the pursuit
WWW: <http://www.cs.mu.oz.au/~fjh>   |  of excellence is a lethal habit"
PGP: finger fjh at 128.250.37.3         |     -- the last words of T. S. Garp.