From 6c35652666fe275de9dc5fdb18fa1a664c9ef41d Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 3 May 2010 23:08:24 -0400
Subject: [PATCH] cpu: cleanups

---
 basis/cpu/architecture/architecture.factor | 2 --
 basis/cpu/x86/x86.factor                   | 4 ++--
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/basis/cpu/architecture/architecture.factor b/basis/cpu/architecture/architecture.factor
index d156b2f39d..8f69b24729 100644
--- a/basis/cpu/architecture/architecture.factor
+++ b/basis/cpu/architecture/architecture.factor
@@ -508,8 +508,6 @@ M: stack-params param-reg 2drop ;
 ! objects in %compare-imm?
 HOOK: fused-unboxing? cpu ( -- ? )
 
-M: object fused-unboxing? f ;
-
 ! Can this value be an immediate operand for %add-imm, %sub-imm,
 ! or %mul-imm?
 HOOK: immediate-arithmetic? cpu ( n -- ? )
diff --git a/basis/cpu/x86/x86.factor b/basis/cpu/x86/x86.factor
index b0d4f05a0e..6019a5af8b 100644
--- a/basis/cpu/x86/x86.factor
+++ b/basis/cpu/x86/x86.factor
@@ -70,9 +70,9 @@ HOOK: pic-tail-reg cpu ( -- reg )
 
 M: x86 complex-addressing? t ;
 
-M: x86 fused-unboxing? ( -- ? ) t ;
+M: x86 fused-unboxing? t ;
 
-M: x86 immediate-store? ( obj -- ? ) immediate-comparand? ;
+M: x86 immediate-store? immediate-comparand? ;
 
 M: x86 %load-immediate dup 0 = [ drop dup XOR ] [ MOV ] if ;