freebsd-ports/textproc/sml-fxp/files/patch-src-Util-SymDict-dict.sml
Thomas Abthorpe 7542e5c15d fxp is a validating XML parser written completely in the functional
programming language SML. fxp can validate both XML 1.0 and XML 1.1
documents. It has a programming interface allowing for production of XML
applications based on fxp. It is installed with four example applications.

WWW: http://www2.informatik.tu-muenchen.de/~berlea/Fxp

PR:		ports/116572
Submitted by:	Timothy Bourke <timbob at bigpond.com>
2007-10-04 03:02:59 +00:00

23 lines
924 B
Standard ML

diff -Naur src/Util/SymDict/dict.sml.orig src/Util/SymDict/dict.sml
--- src/Util/SymDict/dict.sml.orig 2003-10-09 09:47:59.000000000 -0500
+++ src/Util/SymDict/dict.sml 2003-10-17 13:57:44.000000000 -0500
@@ -230,7 +230,7 @@
in ()
end
in
- Array.appi addTo (oldTab,0,NONE)
+ Array.appi addTo oldTab
end
(*--------------------------------------------------------------------*)
@@ -316,8 +316,8 @@
(*--------------------------------------------------------------------*)
fun printDict X2String ({desc,tab,count,...}:'a Dict) =
(print (desc^" dictionary:\n");
- Array.appi
+ ArraySlice.appi
(fn (n,(key,value)) =>
print (" "^Int.toString n^": "^Key.toString key^" = "^X2String value^"\n"))
- (!tab,0,SOME (!count)))
+ (ArraySlice.slice(!tab,0,SOME (!count))))
end