Remove usages of <void*> and *void*

[factor.git] / basis / iokit / iokit.factor

diff --git a/basis/iokit/iokit.factor b/basis/iokit/iokit.factor
index 4dc493222289aa2ed01b19bc0374ccb6a0b0bb45..c9de6f80355d756d7f94ce52f8498bf1e6a5396a 100644 (file)
--- a/basis/iokit/iokit.factor
+++ b/basis/iokit/iokit.factor
@@ -156,9 +156,9 @@ TUPLE: mach-error error-code error-string ;
     io-objects-from-iterator* [ release-io-object ] dip ;
     
 : properties-from-io-object ( o -- o nsdictionary )
-    dup f <void*> [
+    dup f void* <ref> [
         kCFAllocatorDefault kNilOptions
         IORegistryEntryCreateCFProperties mach-error
     ]
-    keep *void* ;
+    keep void* deref ;