CVS: sml-dist/src/system/Basis/Implementation/NJ susp.sig,NONE,1.1 susp.sml,NONE,1.1 smlnj.sig,1.2,1.3

Update of /cvsroot/smlnj/sml-dist/src/system/Basis/Implementation/NJ
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6194/src/system/Basis/Implementation/NJ

Modified Files:
	smlnj.sig 
Added Files:
	susp.sig susp.sml 
Log Message:
brought back SMLofNJ.Susp

--- NEW FILE: susp.sig ---
(* susp.sig
 *
 *   Lazy thunks.
 *
 * Copyright (c) 2005 by The Fellowship of SML/NJ
 *
 * Author: Matthias Blume ([email protected])
 *)
signature SUSP = sig

    type 'a susp

    val delay : (unit -> 'a) -> 'a susp
    val force : 'a susp -> 'a
end

--- NEW FILE: susp.sml ---
(* susp.sml
 *
 *   Lazy thunks (lifted from Core).
 *
 * Copyright (c) 2005 by The Fellowship of SML/NJ
 *
 * Author: Matthias Blume ([email protected])
 *)
structure Susp : SUSP = struct

    type 'a susp = 'a Core.susp

    val delay = Core.delay
    val force = Core.force
end

Index: smlnj.sig
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/system/Basis/Implementation/NJ/smlnj.sig,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** smlnj.sig	1 Jun 2000 18:33:59 -0000	1.2
--- smlnj.sig	25 Feb 2005 20:46:22 -0000	1.3
***************
*** 13,16 ****
--- 13,17 ----
      structure SysInfo : SYS_INFO
      structure Weak : WEAK
+     structure Susp : SUSP
  
      val exportML : string -> bool



-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now.
http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click