/* ----------------------------------------------------------------------------
- * $Id: RtsAPI.c,v 1.13 2000/03/31 03:09:36 hwloidl Exp $
+ * $Id: RtsAPI.c,v 1.15 2000/04/05 13:53:33 panne Exp $
*
* (c) The GHC Team, 1998-2000
*
#ifdef COMPILER /* GHC has em, Hugs doesn't */
HaskellObj
-rts_mkBool (int b)
+rts_mkBool (StgBool b)
{
if (b) {
return (StgClosure *)True_closure;