[MLton] Posix.IO bug?

[Wesley W. Terpstra]

--huq684BweRXVnRxX
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline

On Sun, May 22, 2005 at 04:53:01PM -0400, Adam Chlipala wrote:
> /tmp/fileQqa1VZ.o(.text+0x1e5f): In function `L_170':
> : undefined reference to `Posix_IO_FLock_typ'

Attached is a fix.

You can apply this yourself to 
	/usr/lib/mlton/sml/basis/posix/primitive.sml
to have it work on your system without needing a new version.

-- 
Wesley W. Terpstra

--huq684BweRXVnRxX
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename="typo.patch"

Index: primitive.sml
===================================================================
RCS file: /cvsroot/mlton/mlton/basis-library/posix/primitive.sml,v
retrieving revision 1.34
diff -u -r1.34 primitive.sml
--- primitive.sml	4 May 2005 21:46:33 -0000	1.34
+++ primitive.sml	22 May 2005 22:01:52 -0000
@@ -511,7 +511,7 @@
 	    structure FLock =
 	       struct
 		  val fcntl = _import "Posix_IO_FLock_fcntl": fd * int -> int;
-		  val typ = _import "Posix_IO_FLock_typ": unit -> int;
+		  val typ = _import "Posix_IO_FLock_type": unit -> int;
 		  val whence = _import "Posix_IO_FLock_whence": unit -> int;
 		  val start =
 		     _import "Posix_IO_FLock_start": unit -> Position.int;

--huq684BweRXVnRxX--