From 3956dd151647ce6f6b8d04f80a0f8734b73671b6 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Sat, 15 May 2010 14:33:19 -0700
Subject: [PATCH] cpu.x86.features: ( int alien-assembly ) c-bool> ==> ( bool
 alien-assembly )

---
 basis/cpu/x86/features/features.factor | 18 ++++++++----------
 1 file changed, 8 insertions(+), 10 deletions(-)

diff --git a/basis/cpu/x86/features/features.factor b/basis/cpu/x86/features/features.factor
index c202b7c998..ce0a9dafdf 100644
--- a/basis/cpu/x86/features/features.factor
+++ b/basis/cpu/x86/features/features.factor
@@ -69,15 +69,6 @@ IN: cpu.x86.features
         "end" resolve-label
     ] alien-assembly ;
 
-: (popcnt?) ( -- n )
-    int { } cdecl [
-        int-regs return-reg 1 MOV
-        CPUID
-        ECX 23 BT
-        int-regs return-reg dup XOR
-        int-regs return-reg SETB
-    ] alien-assembly ;
-
 PRIVATE>
 
 MEMO: sse-version ( -- n )
@@ -92,7 +83,14 @@ MEMO: sse-version ( -- n )
 : sse4.1? ( -- ? ) sse-version 41 >= ;
 : sse4.2? ( -- ? ) sse-version 42 >= ;
 
-: popcnt? ( -- ? ) (popcnt?) c-bool> ;
+: popcnt? ( -- ? )
+    bool { } cdecl [
+        int-regs return-reg 1 MOV
+        CPUID
+        ECX 23 BT
+        int-regs return-reg dup XOR
+        int-regs return-reg SETB
+    ] alien-assembly ;
 
 : sse-string ( version -- string )
     {