CVS: sml-dist/src/compiler/MiscUtil/print ppobj.sml,1.12,1.13

Update of /cvsroot/smlnj/sml-dist/src/compiler/MiscUtil/print
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6194/src/compiler/MiscUtil/print

Modified Files:
	ppobj.sml 
Log Message:
brought back SMLofNJ.Susp

Index: ppobj.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/compiler/MiscUtil/print/ppobj.sml,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** ppobj.sml	12 Nov 2004 06:31:53 -0000	1.12
--- ppobj.sml	25 Feb 2005 20:46:20 -0000	1.13
***************
*** 82,89 ****
               of SOME t => 
                   if (isRecTy t) orelse (isUbxTy t)
!                  then obj else Obj.nth(obj, 0)
                | _ => bug "decon -- unexpected conrep-domain")
  
!        | A.TAGGED _ => Obj.nth(obj,1)
  (*     | A.TAGGEDREC _ =>
  	   let (* skip first element, i.e. discard tag *)
--- 82,89 ----
               of SOME t => 
                   if (isRecTy t) orelse (isUbxTy t)
!                  then obj else (Obj.nth(obj, 0) handle e => raise e)
                | _ => bug "decon -- unexpected conrep-domain")
  
!        | A.TAGGED _ => (Obj.nth(obj,1) handle e => raise e)
  (*     | A.TAGGEDREC _ =>
  	   let (* skip first element, i.e. discard tag *)
***************
*** 99,103 ****
         | A.TRANSPARENT => obj
         | A.REF => !(Obj.toRef obj)
!        | A.EXN _ => Obj.nth(obj,0)
         | A.LISTCONS => obj 
         | A.LISTNIL => bug "decon - constant datacon in decon"
--- 99,103 ----
         | A.TRANSPARENT => obj
         | A.REF => !(Obj.toRef obj)
!        | A.EXN _ => (Obj.nth(obj,0) handle e => raise e)
         | A.LISTCONS => obj 
         | A.LISTNIL => bug "decon - constant datacon in decon"



-------------------------------------------------------
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