hoc-cvs

[Wolfgang T. <wth...@us...>]

Update of /cvsroot/hoc/hoc/HOC_cbits
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23292/HOC_cbits

Modified Files:
	Exceptions.m 
Log Message:
Set the "reason" value for HaskellExceptions


Index: Exceptions.m
===================================================================
RCS file: /cvsroot/hoc/hoc/HOC_cbits/Exceptions.m,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- Exceptions.m	27 Sep 2005 11:55:22 -0000	1.1
+++ Exceptions.m	17 Mar 2006 05:27:08 -0000	1.2
@@ -64,7 +64,7 @@
     initExceptionWrapper();
 
     cexc = objc_msgSend(clsHOCHaskellException, selExceptionWithNameReasonUserInfo,
-                        utf8ToNSString("HaskellException"), nil, nil);
+                        utf8ToNSString("HaskellException"), utf8ToNSString(name), nil);
     
     * (HsStablePtr*) (((char*)cexc) + stablePtrOffset) = hexc;