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 * (c) The GHC Team, 1998-2000
* *
...@@ -316,9 +316,9 @@ int ...@@ -316,9 +316,9 @@ int
rts_getBool (HaskellObj p) rts_getBool (HaskellObj p)
{ {
if (p == True_closure) { if (p == True_closure) {
return 1; /* NOTE: This should better be HsTrue */ return 1;
} else if (p == False_closure) { } else if (p == False_closure) {
return 0; /* ... and this HsFalse */ return 0;
} else { } else {
barf("getBool: not a Bool"); 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