From 4e6f6700d48ce1f60d0878983f4e3537f552ed8d Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Wed, 5 Apr 2000 13:53:33 +0000
Subject: [PATCH] [project @ 2000-04-05 13:53:33 by panne] Removed comments
about HsFalse/HsTrue, we guarantee 0/1.
---
ghc/rts/RtsAPI.c | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/ghc/rts/RtsAPI.c b/ghc/rts/RtsAPI.c
index 8d28d8dadbfb..9690743b4cd4 100644
--- a/ghc/rts/RtsAPI.c
+++ b/ghc/rts/RtsAPI.c
@@ -1,5 +1,5 @@
/* ----------------------------------------------------------------------------
- * $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");
}
--
GitLab