iokit: Rename

diff --git a/basis/iokit/iokit.factor b/basis/iokit/iokit.factor
index c9de6f80355d756d7f94ce52f8498bf1e6a5396a..5e2f11f9de67657975d2f313d7632cbbfe4ae21f 100644 (file)
--- a/basis/iokit/iokit.factor
+++ b/basis/iokit/iokit.factor
@@ -123,9 +123,9 @@ FUNCTION: IOReturn IORegistryEntryCreateCFProperties ( io_registry_entry_t entry
 
 FUNCTION: c-string mach_error_string ( IOReturn error ) ;
 
-TUPLE: mach-error error-code error-string ;
+TUPLE: mach-error-state error-code error-string ;
 : <mach-error> ( code -- error )
-    dup mach_error_string \ mach-error boa ;
+    dup mach_error_string \ mach-error-state boa ;
 
 : mach-error ( return -- )
     dup KERN_SUCCESS = [ drop ] [ <mach-error> throw ] if ;