change allocator wrapper to ignore #f results

Supports foreign functions that either allocate or return NULL
(translated to #f).

collects/ffi/unsafe/alloc.rkt

@@ -23,8 +23,9 @@
          start-atomic
          (lambda ()
            (let ([v (apply proc args)])
-             (hash-set! allocated v (list d))
+             (when v
-             (register-finalizer v deallocate)
+               (hash-set! allocated v (list d))
+               (register-finalizer v deallocate))
              v))
          end-atomic))
    proc))