From dc0898f5efdd42d8ec9126163ed940d5f257b4f0 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 14 Dec 2016 13:39:29 -0700 Subject: [PATCH] ffi/unsafe/objc: check for bad protocol Raise an exception instead of installing NULL as a protocol for a class. --- racket/collects/ffi/unsafe/objc.rkt | 2 ++ 1 file changed, 2 insertions(+) diff --git a/racket/collects/ffi/unsafe/objc.rkt b/racket/collects/ffi/unsafe/objc.rkt index 5b906398b2..0d4f362038 100644 --- a/racket/collects/ffi/unsafe/objc.rkt +++ b/racket/collects/ffi/unsafe/objc.rkt @@ -697,6 +697,8 @@ (objc_addClass (cast id _Class _objc_class-pointer)))) (define (add-protocol id proto) + (unless proto + (error 'add-protocol "NULL protocol")) (if class_addProtocol (class_addProtocol id proto) (add-protocol-the-hard-way id proto)))