tools.disassembler.capstone: using \ cpu

diff --git a/basis/tools/disassembler/capstone/capstone.factor b/basis/tools/disassembler/capstone/capstone.factor
index f7a47af7b8ca5f18f95c8f2fcd526e019851f893..8fc6c19456b7740b3748df74f39016697446ac8b 100644 (file)
--- a/basis/tools/disassembler/capstone/capstone.factor
+++ b/basis/tools/disassembler/capstone/capstone.factor
@@ -118,12 +118,12 @@ DESTRUCTOR: cs_close
     { int int } [ cs_version drop ] with-out-parameters ;
 
 : <csh> ( -- csh )
-    cpu {
+    \ cpu get {
         { x86.32 [ CS_ARCH_X86 CS_MODE_32 ] }
         { x86.64 [ CS_ARCH_X86 CS_MODE_64 ] }
         { arm.32 [ CS_ARCH_ARM CS_MODE_ARM ] }
         { arm.64 [ CS_ARCH_ARM64 CS_MODE_ARM ] }
-    } case 0 csh <ref> [ cs_open CS_ERR_OK assert= ] keep ;
+    } case B 0 csh <ref> [ cs_open CS_ERR_OK assert= ] keep ;
 
 : with-csh ( ..a quot: ( ..a csh -- ..b ) -- ..b )
     '[ <csh> &cs_close @ ] with-destructors ; inline