From d2a1a2326bfc73f66d4806fa5fe24e7e319e1c44 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 12 Dec 2008 18:44:43 -0600
Subject: [PATCH] Use gdb on Windows

---
 basis/tools/disassembler/disassembler.factor | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/basis/tools/disassembler/disassembler.factor b/basis/tools/disassembler/disassembler.factor
index fac340845b..2a717c084f 100644
--- a/basis/tools/disassembler/disassembler.factor
+++ b/basis/tools/disassembler/disassembler.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: tr arrays sequences io words generic system combinators
-vocabs.loader ;
+vocabs.loader kernel ;
 IN: tools.disassembler
 
 GENERIC: disassemble ( obj -- )
@@ -18,8 +18,7 @@ M: word disassemble word-xt 2array disassemble ;
 
 M: method-spec disassemble first2 method disassemble ;
 
-cpu {
-    { x86.32 [ "tools.disassembler.udis" ] }
-    { x86.64 [ "tools.disassembler.udis" ] }
-    { ppc [ "tools.disassembler.gdb" ] }
-} case require
+cpu x86? os unix? and
+"tools.disassembler.udis"
+"tools.disassembler.gdb" ?
+require