From 6191072712567de06173fb07adfed7b1d7acfe7b Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 12 Sep 2009 12:49:51 -0500
Subject: [PATCH] math.floats.env.ppc: fix ppc-fp-traps-bits

---
 basis/math/floats/env/ppc/ppc.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/math/floats/env/ppc/ppc.factor b/basis/math/floats/env/ppc/ppc.factor
index feaac735d9..f834d4971a 100644
--- a/basis/math/floats/env/ppc/ppc.factor
+++ b/basis/math/floats/env/ppc/ppc.factor
@@ -31,7 +31,7 @@ CONSTANT: ppc-exception-flag>bit
         { +fp-inexact+           HEX: 0200,0000 }
     }
 
-CONSTANT: ppc-fp-traps-bits HEX: f80
+CONSTANT: ppc-fp-traps-bits HEX: f800
 CONSTANT: ppc-fp-traps>bit
     H{
         { +fp-invalid-operation+ HEX: 8000 }