Commit 4e6f6700 authored by panne's avatar panne
Browse files

[project @ 2000-04-05 13:53:33 by panne]

Removed comments about HsFalse/HsTrue, we guarantee 0/1.
parent 9e91eeb1
/* ----------------------------------------------------------------------------
* $Id: RtsAPI.c,v 1.14 2000/04/04 13:40:27 panne Exp $
* $Id: RtsAPI.c,v 1.15 2000/04/05 13:53:33 panne Exp $
*
* (c) The GHC Team, 1998-2000
*
......@@ -316,9 +316,9 @@ int
rts_getBool (HaskellObj p)
{
if (p == True_closure) {
return 1; /* NOTE: This should better be HsTrue */
return 1;
} else if (p == False_closure) {
return 0; /* ... and this HsFalse */
return 0;
} else {
barf("getBool: not a Bool");
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment