#lang racket

(define-tcod sys-wait-for-event
  (_fun _TCOD_event_t [k : (_ptr o _TCOD_key_t)] [m : (_ptr o _TCOD_mouse_t)] _bool
        -> _TCOD_event_t -> (values k m))
  #:c-id TCOD_sys_wait_for_event)