diff --git a/extra/game-input/backend/iokit/iokit.factor b/extra/game-input/backend/iokit/iokit.factor index cc4cc31ffa..1c778c6bb9 100644 --- a/extra/game-input/backend/iokit/iokit.factor +++ b/extra/game-input/backend/iokit/iokit.factor @@ -80,15 +80,9 @@ SINGLETON: iokit-game-input-backend game-devices-matching-seq hid-manager-matching ; : device-property ( device key -- value ) - [ - IOHIDDeviceGetProperty - [ &CFRelease plist> ] [ f ] if* - ] with-destructors ; + IOHIDDeviceGetProperty plist> ; : element-property ( element key -- value ) - [ - IOHIDElementGetProperty - [ &CFRelease plist> ] [ f ] if* - ] with-destructors ; + IOHIDElementGetProperty plist> ; : set-element-property ( element key value -- ) [ ] [ >plist ] bi* IOHIDElementSetProperty drop ; : transfer-element-property ( element from-key to-key -- )